[R 데이터 분석 연습] 텍스트로 부터 워드클라우드 그리기 연습

# --- 텍스트로 부터 워드클라우드 그리기 연습 -----

# 포탈의 뉴스기사를 복사해서 텍스트 변수에 저장한 후

# 워드 클라우드를 그려보기

 

# 뉴스기사를 검색한 키워드는 '발렌타인데이'

# 마침 오늘이 발렌타인 데이 이므로 뉴스에는 어떤 이야기가

# 나오는지 보려고 연습

# 텍스트에 따옴표가 들어가지 않도록 미리 텍스트파일에서 제거하는 처리를 해야 오류가 없음

# 텍스트 변수의 값은 쌍따옴표에 의해 구분된다는 점에 주의 필요

 

vdnews <- "주니엘, 청순한 발렌타인데이 인증샷 '분위기 있어~'티

브이데일리 연예 | 3분전
가수 주니엘이 청순한 발렌타인데이 인증샷을 공개했다. 주니엘은

14일 오후 자신의 트위터에 오늘은 2월14일 발렌타인데이에요. 그

래서 초콜릿을 준비했어요. 여러분도 오늘은 사랑하는 사람들에게

초콜릿으로 마음을 ... '티브이데일리'만 검색 | 관련뉴스검색닉쿤

발렌타인데이 인증샷, 진정한 사탕키스란 이런 것한국일보 연예 |

14분전
2PM의 닉쿤이 발렌타인데이 기념 사탕 뽀뽀 인증샷을 공개했다. 닉

쿤은 14일 오전 자신의 트위터에 “Happy Valentine's Day(행복한

발렌타인데이)”라는 글과 함께 사진 한 장을 게재했다. 공개된 사

진 속 닉쿤은 눈을 지그시 감고 ... '한국일보'만 검색 | 관련뉴스

검색
건국대-서울시, 발렌타인데이 무료공연뉴시스 사회 | 16분전
건국대학교 사범대학 음악교육과 학생들이 서울시 한강사업본부와

14일 오후 발렌타인데이를 맞아 한강 전망대에서 시민들을 위한 무

료 공연을 한다. 건국대 음악교육대 학생 9명 등 15명의 대학생은

서울 광진구 뚝섬유원지 부근의 ... '뉴시스'만 검색 | 관련뉴스검

색
발렌타인데이요? 볼런티어데이죠 교보, 초콜릿 대신 봉사활동세계

일보 경제 | 16분전
[세계파이낸스] 교보생명보험과 KT&G 미혼남녀 직원들이 발렌타인

데이의 초콜릿 대신 자원봉사로 사랑을 전하는

볼런티어(Volunteer) 데이 행사를 펼쳐 화제다. 교보생명은 13일,

발렌타인 데이를 맞아 ‘볼런티어 데이 싱글벙글 ... '세계일보'만

검색 | 관련뉴스검색게임빌, 발렌타인데이 맞아 '2色' 이벤트 실시

뉴스토마토 it/과학 | 30분전
게임빌(063080)이 14일 소셜 네트워크 게임 2종으로 '이색' 발렌타

인데이 이벤트를 진행한다. 소셜네트워크게임 '그레이프밸리'와 '

트레인시티 for Kakao'의 고유의 특징이 담긴 2가지 색깔의 이벤트

를 연다. 그레이프밸리에서 ... '뉴스토마토'만 검색 | 관련뉴스검

색발렌타인데이, 초콜릿 말고 IT액세서린 어때?머니투데이 it/과학

| 34분전
['발렌슈머' 증가에 IT 선물도 증가] 올해도 어김없이 찾아온 발렌

타인데이. 애인에게 공식적으로 마음을 표현할 수 있는 축제의 날

을 맘껏 즐기되 기왕이면 주는 이도 받는 이도 만족할 수 있는 특

별한 선물을 선택해보자. 선물 선택 ... '머니투데이'만 검색 | 관

련뉴스검색
연애고수가 추천하는 발렌타인데이 데이트코스는?YTN | 36분전
발렌타인데이가 단순한 상술일 뿐이라고 생각한다면, 당신이 연애

하수임을 인정해야 할 것이다. 그리스도교 성인 발렌타인이나, 영

미권의 발렌타인데이 문화를 이야기하기 전에 발렌타인데이를 연인

과의 사랑을 확인하고 함께 나눌 수 ... 'YTN'만 검색 | 관련뉴스

검색양요섭 '그래도 나는' 미공개 MV 공개 '발렌타인데이 깜짝 선

물'뉴스엔 연예 | 43분전
관계자에 따르면 이번 뮤직비디오는 발렌타인데이(밸런타인데이)를

맞이해 팬들을 위한 선물로 준비됐다. '그래도 나는' 뮤직비디오는

타이틀곡 '카페인' 뮤직비디오 미공개 컷과 립싱크로 구성됐다. 가

슴 아픈 이별 이야기를 담은 ... '뉴스엔'만 검색 | 관련뉴스검색

닉쿤, 발렌타인데이 기념 셀카 '초콜릿 뽀뽀'TV리포트 연예 | 45분

전
이를 접한 네티즌들은 발렌타인데이 최고 선물이다 사탕 뽀뽀 귀여

워 잘생겼다 역시 닉쿤 사랑스럽다 사진 계속 보게 된다 닉쿤 로맨

틱해 등의 반응을 보였다. 한편 2PM은 다음달 2일 필리핀 마닐라를

시작으로 30일 ... 'TV리포트'만 검색 | 관련뉴스검색발렌타인데이

, 초콜릿 받았다면 답례 '촉촉한 청바지' 어때요?SBS CNBC 경제 |

1시간전
아이러니한 점은, 미국에서는 발렌타인데이에 남자건 여자건 상관

없이 서로 초콜렛을 주고 받았는데, 우리나라에서는 발렌타인데이

엔 여자가, 화이트데이엔 남자가 선물을 주더라고요. <기자> 화이

트데이는 주로 한국, 일본, 타이완 ... 'SBS CNBC'만 검색 | 관련

뉴스검색

[포토엔]김희선 '초콜릿 드세요' 발렌타인데이 선물!뉴스엔 연예 |

1시간전
SBS 새 예능 '화신-마음을 지배하는 자' 기자간담회가 2월 14일 오

후 1시 30분 서울 강서구 등촌동 SBS 공개홀에서 진행됐다. 이날 '

화신-마음을 지배하는 자' 기자간담회에는 신동엽, 윤종신, 김희선

, 신효정PD 등이 참석했다. 한편 ... '뉴스엔'만 검색 | 관련뉴스

검색사람인HR, 발렌타인데이 초콜릿 대신 털모자로 사랑 나눠파이

낸셜뉴스 경제 | 1시간전
발렌타인데이. 좋아하는 사람에게 선물로 마음을 표현하는 날이지

만, 의미보다는 선물만을 강조하는 마케팅으로 눈살이 찌푸려지는

경우가 많다. 하지만, 최근에는 기부와 사회공헌을 통해 보다 많은

사람들에게 사랑을 전하는 ... '파이낸셜뉴스'만 검색 | 관련뉴스

검색게임빌, 발렌타인데이 맞아 SNG 2色 이벤트 진행헤럴드생생 칼

럼 | 1시간전
- 두 게임 모두 여성 유저 비율 많아 발렌타인데이 분위기 타고 인

기 상승 전망 게임빌(대표 송병준, www.gamevil.com)은 14일, 소셜

네트워크 게임 2종으로 발렌타인데이 이벤트를 진행 중이다. 최근

인기를 모으고 있는 SNG ... '헤럴드생생'만 검색 | 관련뉴스검색

이케아, 발렌타인데이 이벤트 9개월 후 만나요머니투데이 사회 | 1

시간전
세계 최대의 가구업체 이케아가 깜찍한 발렌타인데이 이벤트를 공

개했다. 14일 발렌타인데이를 맞아 이케아는 호주의 한 일간지에

'9개월 후에 만나요' 라는 제목의 광고를 게재했다. 이케아는 광고

에서 발렌타인데이를 축하하는 ... '머니투데이'만 검색 | 관련뉴

스검색영화 '나의 PS파트너', 발렌타인데이에 맞춰 다운로드 받아

보세요이투데이 연예 | 1시간전
영화 다운로드 전문 웹하드 송사리는 14일 발렌타인데이에 맞춰 지

성·김아중 주연의 영화 '나의 PS파트너' 인터넷 다운로드서비스를

실시한다고 밝혔다. 지난해 12월 개봉한 영화 '나의 PS파트너' 주

인공 지성과 김아중은 옛사랑에 ... '이투데이'만 검색 | 관련뉴스

검색사람인HR, 발렌타인데이 초콜릿 대신 털모자로 사랑 나눠뉴스

토마토 경제 | 1시간전
리크루팅 전문기업 사람인에이치알(143240)은 알바인과 함께 빈곤

국 신생아를 살리기 위한 털모자 기증에 나섰다고 14일 밝혔다. 지

난 연말, ‘신생아모자뜨기 캠페인’에 동참할 직원을 모집했던 사

람인에이치알은 118명의 직원이 ... '뉴스토마토'만 검색 | 관련뉴

스검색[뷰티 NEW ITEM] 발렌타인데이 특집! 2월 셋째 주 스페셜 신

제품조선일보 사회 | 1시간전
스웨거(SWAGGER) 발렌타인 클린업, 프렙업 세트│각 38,000원,

35,000원 2. 발렌타인 데이를 맞아 ‘버츠비’에서 사랑하는 연인

을 위한 립밤 패키지를 공개했다. 패키지는 자연스러운 발색감, 촉

촉한 보습력, 플로럴 향이 매력적인 ... '조선일보'만 검색 | 관련

뉴스검색'나의 PS파트너' 다운받아본다…발렌타인데이 서비스스타

뉴스 연예 | 1시간전
PS 파트너 포스터) 영화다운로드 전문 웹하드 송사리가 14일 발렌

타인데이에 맞춰 지성· 김아중 주연의 영화 '나의PS파트너'를 오

전 11시부터 인터넷 다운로드서비스를 실시한다고 밝혔다. 지난해

12월에 개봉한 영화 ... '스타뉴스'만 검색 | 관련뉴스검색박신혜,

갈소원에게 발렌타인데이 초콜릿 선물 훈훈스타뉴스 연예 | 1시간

전
<사진= 박신혜 트위터 발췌> 배우 박신혜가 아역배우 갈소원에게

발렌타인데이 초콜릿 선물을 하며 돈독한 사이를 자랑했다. 14일

박신혜는 자신의 트위터에 7번방의 선물 미디어데이 맛있는 점심

먹으면서 애기 예승이에게 초콜릿 ... '스타뉴스'만 검색 | 관련뉴

스검색"

 

# --- 워드 클라우드 생성 결과 : 초콜릿 선물 이외에는 별 이야기가 없음

# 초콜릿이나 선물 보다는 사랑이라는 단어가 더 크게 나와야 하는 것 아닌가?

# 세개의 라이브러리를 사용

library(KoNLP)
library(wordcloud)
library(plyr)
 
useSejongDic()

 

# 뉴스를 데이터로 사용했기 때문에 뉴스, 검색. 사진 등의 단어는 불필요

# 특히 발렌타인데이는 연예면의 기사에 주로 나와서 이 단어도 불필요. 제거!

 

vdnews <- gsub("연예", "", vdnews)
vdnews <- gsub("사진", "", vdnews)
vdnews <- gsub("뉴스", "", vdnews)
vdnews <- gsub("관련", "", vdnews)
vdnews <- gsub("검색", "", vdnews)
vdnews <- gsub("시간", "", vdnews)
 

# 명사인 단어만 추출. 한글자인 단어는 제외

# 술은 당연히 빠지게 될 것
nouns <- extractNoun(vdnews)
nouns <- nouns[nchar(nouns)>=2]
cnouns <- count(nouns)
 

 

 
pal <- brewer.pal(6,"Dark2")
pal <- pal[-(1)]
 
windowsFonts(malgun=windowsFont("맑은 고딕"))
 

# 워드클라우드를 그리는 함수

# 텍스트가 큰 사이즈가 아니므로 단어의 빈도는 3 이상으로 지정
wordcloud(words=cnouns$x, freq=cnouns$freq, colors=pal,

min.freq=3,
          random.order=F, family="malgun")

 

 

# 이번에는 뉴스기사 대신 블로그 포스팅을 검색해서 연습

# CRM을 키워드로 블로그들의 미리 보기 리스트 20개를 데이터로 사용

# CRM에서 [ 고객 --> 관리 --> 관계 ] 순으로 중요하게 생각하는 듯

# 이 부분은 그다지 바람직해 보이지는 않음 관계가 관리 보다 중요한 것 아닐까?

# 기타 눈에 띄는 것은 세일즈포스닷컴... 언제부턴가 CRM=Salesforce.com 이런

# 묘한 관계가 만연해 진 듯. 그만큼 세일즈포스닷컴이 적극적인 마케팅을 펼치고 있음에 대한

# 증거인지도 ...