워드 클라우딩(word clouding)
1.1 뉴스 샘플을 이용한 워드클라우딩
getwd()## [1] "C:/Users/94tjd/data/rpubs/text function"library(RHINO)## Loading required package: rJavainitRhino()
txt <- readLines("sample_news.txt")
noun <- lapply(txt, getMorph, "noun")
nounVec <- unlist(noun)
nounFreq <- table(nounVec)
library(RColorBrewer)
library(wordcloud)
pal <- brewer.pal(8, "Dark2")
wordcloud(names(nounFreq), freq = nounFreq, sacle = c(4,1), rot.per = 0.25, min.freq = 30, random.order = F,
random.color = T, colors = pal)
1.2 트위터 자료 긁어오기 및 워드 클라우딩
- 접근키는 보안상 생략
## Loading required package: twitteR## [1] "Using direct authentication"str <- "날씨"
num <- 100
keyword <- enc2utf8(str)1.2.1 키워드를 통한 트위터 멘션 수입
tweets <- searchTwitter(keyword, n=num, lang="ko") # 1.2.2 내용 확인
temp <- tweets[[1]]
#temp$getScreenName() # 화면상에 표시되는 사용자 이름
temp$getText()## [1] "RT @mexicana1: 롱패딩 입어도 추운 날씨는<U+2744><U+FE0F>\n매운 맛으로 극.뽁!<U+0001F336><U+FE0F><U+0001F525>\n\n#매콤단짠 #뿌리고치킨\n#맛있게매운 #땡초치킨 \n#눈비오는날엔_매콤한_치킨이_진리\n\n#멕시카나치킨 #강다니엘 \n#소한 #멍뭉미 https://t.co/btdbqNx…"1.2.3 plyr::laply 를 활용하여 트위터 멘션만을 저장
if(!require(plyr)) {install.packages("plyr"); library(plyr)}
tweets.text <- laply(tweets, function(t) t$getText())
length(tweets.text)## [1] 100head(tweets.text,3)## [1] "RT @mexicana1: 롱패딩 입어도 추운 날씨는<U+2744><U+FE0F>\n매운 맛으로 극.뽁!<U+0001F336><U+FE0F><U+0001F525>\n\n#매콤단짠 #뿌리고치킨\n#맛있게매운 #땡초치킨 \n#눈비오는날엔_매콤한_치킨이_진리\n\n#멕시카나치킨 #강다니엘 \n#소한 #멍뭉미 https://t.co/btdbqNx…"
## [2] "RT @honeydogs_00: 산책하기 좋은 날씨 https://t.co/g6SMoGLi62"
## [3] "RT @BTS_twt: 날씨 조타~ https://t.co/taKV5gbwTt"require(stringr)
text <- tweets.text
x <- gsub("[^A-Za-z가-힣[:space:][:digit:][:punct:]]", "", text)
x <- gsub("@|\n|RT", "", x)
x <- gsub("[[:punct:]]", " ", x)
x <- gsub("[[:digit:]]", "", x)
x <- tolower(x)
x <- gsub("[a-z]", "", x)
x <- str_trim(x)
x## [1] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [2] "산책하기 좋은 날씨"
## [3] "날씨 조타"
## [4] "째니의발자국 매일 레전드를 기록했던 시간이필요해 어쿠스틱 버전기타와 째니 조합으로 함께한 일주일 어떠셨나용 추웠던 날씨 우리 윈드의 뜨거운 응원소리로 따뜻한 일주일을 보낼 수 있었습니당남"
## [5] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [6] "날씨 조타"
## [7] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [8] "째니의발자국 매일 레전드를 기록했던 시간이필요해 어쿠스틱 버전기타와 째니 조합으로 함께한 일주일 어떠셨나용 추웠던 날씨 우리 윈드의 뜨거운 응원소리로 따뜻한 일주일을 보낼 수 있었습니당남"
## [9] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [10] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [11] "천재들의 새해 선물 열린 음악회바이올린 든 벤지는 추운 날씨에도 사랑 아닐 수 없어요 비아이지 벤지 자이로 열린음악회"
## [12] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [13] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [14] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [15] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [16] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [17] "개춥네 이게 날씨냐 화난다"
## [18] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [19] "방모닝 년 둘째 주 시작 겨울비가 내립니다날씨 많이 춥네요 년도 골든디스크시상식으로 기분좋게 시작하는 방탄과 아미 올 한해도 꽃길만 걸어요오 우리의 지금이 화양연화 찬란한 방탄의"
## [20] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [21] "째니의발자국 매일 레전드를 기록했던 시간이필요해 어쿠스틱 버전기타와 째니 조합으로 함께한 일주일 어떠셨나용 추웠던 날씨 우리 윈드의 뜨거운 응원소리로 따뜻한 일주일을 보낼 수 있었습니당남"
## [22] "다른 날씨는 아무 상관 없는데 신경도 안씀 안개 나 눈보라가 심한 날 같은 시야가 가려지는 날엔 유독 힘들어하는 모험가 나가기 싫은데 마물이나 사건이 날씨를 고르진 않으니까 새벽 응원 받으면서 미적미적 일어나는 모험가"
## [23] "날씨 조타"
## [24] "방모닝 년 둘째 주 시작 겨울비가 내립니다날씨 많이 춥네요 년도 골든디스크시상식으로 기분좋게 시작하는 방탄과 아미 올 한해도 꽃길만 걸어요오 우리의 지금이 화양연화 찬란한 방탄의"
## [25] "부코 트친소 코스어 트친소 안녕하세용 월부코 일요일 내스급 박예림팀코로 다녀왔습니다날씨추운데 다들 고생하셨어요 우리팀원들코트빌려주셔서 감사해용 고전 내스급 게임 드루드루 다 좋아합니당흔적남겨주시면찾아갈께"
## [26] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [27] "우젠요즘 날씨 쌀쌀한데 다들 감기 조심하셔요"
## [28] "낚시게임의 딜레마가 같은 위치라도 시간 날씨 바람 등에 따라 아무리 기다려도 안잡히는데 그걸 실제로 구현 게임인데 너무하네 어느정도 잡히게 구현 이 게임 엉터리로 만들었네"
## [29] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [30] "울 여워 흐린날씨지만 무탈한하루보내길"
## [31] "방모닝 년 둘째 주 시작 겨울비가 내립니다날씨 많이 춥네요 년도 골든디스크시상식으로 기분좋게 시작하는 방탄과 아미 올 한해도 꽃길만 걸어요오 우리의 지금이 화양연화 찬란한 방탄의"
## [32] "오늘 따뜻하게 입고오세요 날씨가 저녁에 많이 추워요"
## [33] "간만에 날씨 좋아서 밖에 나왔는데 너무나 평화로와 오세요웰링턴"
## [34] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [35] "째니의발자국 매일 레전드를 기록했던 시간이필요해 어쿠스틱 버전기타와 째니 조합으로 함께한 일주일 어떠셨나용 추웠던 날씨 우리 윈드의 뜨거운 응원소리로 따뜻한 일주일을 보낼 수 있었습니당남"
## [36] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [37] "날씨가 추운데 초애야 우리 손 잡을까"
## [38] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [39] "산책하기 좋은 날씨"
## [40] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [41] "느지막이 나가려고 했더니 콩알이와 깜장이 두 마리가 낑낑거리며 울고 바지를 잡아당기고 난리다 날씨가 이러니 불안한가본데 둘만 두고 갈 수도 없고 결국 오늘은 이 녀석들 핑계로 나도 쉬게 되었어"
## [42] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [43] "채집계의 백화적금 아포아크 를 낚아보자 특 작성하는 본인도 아직 낚아본적 없음 별붙고 소장가치 높으면 무려 한마리당 백화 위치 템페스트 캘리반의 옛집 서쪽조건 날씨 쾌청 시간"
## [44] "주기적으로 봐줘야되는 서현진 이럴거면 그러지말지 바람 날씨 음색"
## [45] "산책하기 좋은 날씨"
## [46] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [47] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [48] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [49] "채집계의 백화적금 아포아크 를 낚아보자 특 작성하는 본인도 아직 낚아본적 없음 별붙고 소장가치 높으면 무려 한마리당 백화 위치 템페스트 캘리반의 옛집 서쪽조건 날씨 쾌청 시간"
## [50] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [51] "째니의발자국 매일 레전드를 기록했던 시간이필요해 어쿠스틱 버전기타와 째니 조합으로 함께한 일주일 어떠셨나용 추웠던 날씨 우리 윈드의 뜨거운 응원소리로 따뜻한 일주일을 보낼 수 있었습니당남"
## [52] "그간 꾹다방 커피부터 시작해서 차가운 날씨에 잘들 얻어 먹기만 해서 미안하기만 한데 어젠 왜 그런대요 문제가 있음 제대로 말을 해야지"
## [53] "째니의발자국 매일 레전드를 기록했던 시간이필요해 어쿠스틱 버전기타와 째니 조합으로 함께한 일주일 어떠셨나용 추웠던 날씨 우리 윈드의 뜨거운 응원소리로 따뜻한 일주일을 보낼 수 있었습니당남"
## [54] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [55] "달님 사진으로 날씨를 예측하라면 년은 항상 맑음맑음이야"
## [56] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [57] "오 오늘 날씨가 좋은거같아"
## [58] "날씨가 애매해 비가 오는거야 안오는거여"
## [59] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [60] "요즘 날씨보면 꽤 괜찮을거같긴하기도 하지만 그래도 추울거같"
## [61] "울 여워 흐린날씨지만 무탈한하루보내길"
## [62] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [63] "이 날씨에 유니폼 하나만 걸치고 맨손으로 젖은 걸레 잡고 밖에서 유리창 닦는 롯데리아 알바생을 구출해주세요"
## [64] "째니의발자국 매일 레전드를 기록했던 시간이필요해 어쿠스틱 버전기타와 째니 조합으로 함께한 일주일 어떠셨나용 추웠던 날씨 우리 윈드의 뜨거운 응원소리로 따뜻한 일주일을 보낼 수 있었습니당남"
## [65] "그래도 그쯤이면 황금 연휴기간 아니라서 뱅기값 안비쌀테고 날씨도 적당할테고 하 모든게 봄같은 날이네"
## [66] "산책하기 좋은 날씨"
## [67] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [68] "산책하기 좋은 날씨"
## [69] "날이 썩 서늘하군 술 마시며 아들들 보기 좋은 날씨지"
## [70] "기후변화 겨울왕국 노르웨이 월 최고기온 예년보다 도 높은 도 기록 노르웨이의 기존 월 기온은 보통 영하의 날씨다"
## [71] "우리 빈이 인스타 팔로워 만을 축하해 사람들이 우리 빈이 많이 보고 싶어하고 또 그리워히나 봐 그러니까 걱정 말고 푹 쉬고 밥도 잘 먹고 잘 지내다가 돌아오기 날씨는 흐리지만 오늘도 최고로 기"
## [72] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [73] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [74] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [75] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [76] "저는 봄과 가을 덥지도 않고 춥지도 않은 그 날씨를 좋아해요 왜 짧아지는거야 제 본가에 유명한 벚꽃명소가 있는데 맨날 가고싶어도 준말이 중간고사잖아요 강선"
## [77] "산책하기 좋은 날씨"
## [78] "좋아요 그럼 월 씨가 저 대신 많이많이 말해주시기 물론 장난이에요 딸기타르트요 확실히 이 날씨에는 딸기가 올라간 음식이 새콤하고 달콤해서 맛있기도 하죠 월 씨 입맛에 잘 맞았나봐요"
## [79] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [80] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [81] "날씨 끼히힛 치해따"
## [82] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [83] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [84] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [85] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [86] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [87] "공유와 관심 감사합니다 겨울이 오기 전부터 올 겨울은 예년보다 춥다 춥지않다 많은 보도가 있었는데요 올 겨울 날씨가 어떨까요 자세히 알아보아요"
## [88] "김준서 저번에 갔던 부산 광안리 원더랜드 요즘 날씨 더 추워졌는데옷 따뜻하게 입어요 원더나인"
## [89] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [90] "씨바 오늘 날씨 한번 존나게 춥네 뭐해 약속 없지 같이 점심이나 먹자"
## [91] "공 주문건 전량 세트 교환 포함 파본 일 출고됩니다 공 커버는 날씨에 따라 변형 및 파손 되기 쉬우니 따뜻한 곳에서 살짝 녹여주신 후 개봉해주시기 바랍니다 공 커버 재질 특성상 제작 공정시 기"
## [92] "나무 나무 그리고 나무날씨 조오타"
## [93] "혹시 고민이 있는 거야 어쩐지 표정이 떨떠름해 보여 슬쩍 고개를 기울여 눈을 마주했다 교정이 색색으로 물들고 날씨가 따뜻해지면 나비도 팔랑팔랑 날아다니겠지 나나미야는 하얀 친구"
## [94] "산책하기 좋은 날씨"
## [95] "날씨좋다아 하늘보며"
## [96] "코코페 트친소 코스어 트친소오늘 왕코 코가 유닛복으로 무려 팀코 로 갔다왔어요 날씨 추웠는데 다들 고생하셧구숭하지않아요 알티위주 바이오보고 천천히 유멘팔로 찾아갑니다 앙스타 뱅드림"
## [97] "산책하기 좋은 날씨"
## [98] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"
## [99] "왜 꼭 나 쉬는 날마다 날씨가 구린걸까"
## [100] "롱패딩 입어도 추운 날씨는매운 맛으로 극 뽁 매콤단짠 뿌리고치킨 맛있게매운 땡초치킨 눈비오는날엔 매콤한 치킨이 진리 멕시카나치킨 강다니엘 소한 멍뭉미"library(RHINO)
x1 <- lapply(x, getMorph)
x2 <- lapply(x1, function(x) x[nchar(x)>1])
x3 <- do.call(c, x2)
o <- table(x3)1.2.4 워드클라우딩
# install.packages("wordcloud")
library(wordcloud)
pal <- brewer.pal(8,"Dark2")
wordcloud(names(o), o, min.freq=3, random.order=F,random.color=T,colors=pal)