거리두기 해제_차트그려보기

2020-04-18 사회적 거리두기 해제
-실내외 마스크 착용 의무

해제 :
운영시간, 사적 모임, 행사 집회, 기타(종교활동, 실내 취식금지 등)

실내 취식금지는 4월 25일부터 해제 예정 (1주간 준비기간)

---

거리두기 해제를 하면서 사람들의 관심도가 얼마나 높은지 구글 트렌드에서 검색해봤음.
먼저 트렌드모니터에서 조사한 그래프를 가져옴.

트렌드모니터 이미지1

점점 긍정적 인식이 감소하고 있는 추세로 이번 거리두기 해제가 되면서 조금 답답한 마음이 나아지겠네요~

---

R로 그려본 차트~

1. 시간 흐름에 따른 관심도 변화
키워드 : 거리두기 해제
2022-04-13 20시 ~ 2022-04-20 19시 :
시간당 건수 -> 날짜 범주로 건수 합계

*4/15 거리두기 해제 발표, 2년 1개월만

2. 검색어
키워드 : 거리두기 해제
-값은 검색 빈도가 가장 높은 주제의 경우 100, 검색 빈도가 그 절반 정도인 주제의 경우 50으로 나타남

3. 급상승 검색어
키워드 : 거리두기 해제





그 외 급등한 검색어

거리 두기 pc 방

질병 관리청

사회적 거리 두기 영어 로

확진 자 자가 격리

pc 방 영업 시간

사회적 거리 두기 나무 위키

중앙 재난 안전 대책 본부

피시방 24 시간

ㅎㅎㅎ pc방 바쁘겠다

---

트렌드모니터에서 조사한 위드 코로나 때 하고 싶은 활동~

트렌드모니터 이미지2

여행 가기를 원하고 코로나 전에 제재 없던 활동을 그리워하는 듯~
이제 해제한 지 2일이 지났는데 그리던 삶과 좀 가까워졌을까

---

마지막으로 썸트렌드 data로 R 워드클라우드
키워드 : 거리두기
기간 : 4/13 ~ 4/19
긍정, 부정 합쳐서 건수의 크기따라

---

구글 트렌드 : https://trends.google.co.kr/ - R 차트 data

---

트렌드모니터 : https://www.trendmonitor.co.kr/ -이미지 1, 이미지 2 :
'방역 중요하지만 규제 완화도 필요해' 코로나19 장기화로 거세지는 일상 회복 욕구
[TK_202203_TRY7424] 2022 '위드 코로나' 이후 라이프스타일 변화 관련 조사(7차)

---

썸트렌드 : https://some.co.kr/ - 워드클라우드 data

library(readxl)
library(ggplot2)
library(dplyr)

aa <- aggregate(건수~시간,a,sum) #시간 기준으로 건수 합

#표1
ggplot(aa,aes(x=시간,y=건수))+
  geom_col(fill='#BCE5DF',colour='#2EBEB0')+
  geom_line(aes(y=건수),group=1)+
  geom_point(aes(y=건수))+
  geom_text(aes(label=건수), vjust=-1)+
  scale_y_continuous(breaks=seq(0, 1300,100),labels = scales::comma)+
  labs(x='',y='',title='구글트렌드 시간 흐름에 따른 관심도 변화')+
  theme_bw()
  
#표2
ggplot(b,aes(x=reorder(인기,건수),y=건수))+
  geom_col(fill='#582544')+
  geom_text(aes(label=건수),hjust=-1)+
  ylim(0,115)+
  labs(x='',y='',title='구글트렌드 거리두기해제 키워드 중 인기검색어')+
  coord_flip()+
  theme_bw()
  
#표3
ggplot(c,aes(x=reorder(급상승,증가량),y=증가량,fill=증가량))+
  geom_bar(stat='identity')+
  labs(x='',y='증가량(%)',title='구글트렌드 거리두기해제 키워드 중 급상승검색어')+
  geom_text(aes(label=증가량),hjust=1.2,color='white')+
  theme(legend.position = 'none')+
  coord_flip()
  
#워드클라우드
library(wordcloud)
library(RColorBrewer)

pal <- brewer.pal(9,'Paired')

par(bg="black")

wordcloud(words = word$필터,
          freq = word$건수,
          min.freq = 1,
          random.order=F,
          colors=pal)