워드클라우드 (2)
기사 긁어오기 & 워드클라우드
- 스포츠기사 가져옴
url <- "https://sports.news.naver.com/wfootball/news/read.nhn?oid=109&aid=0003834601"
page <- read_html(url, encoding = "UTF-8")
partMain <- page %>% html_nodes("#newsEndContents") %>% html_text()
partMain## [1] "\n\t\t\t\t\t\t\n\t\t\t\t\t\t\n\t\t\t\t\t\t\t[OSEN=강필주 기자] 지네딘 지단 감독과 크리스티아누 호날두(33, 유벤투스)가 떠난 후 첫 선을 보인 레알 마드리드가 결정력 부족을 보이며 패했다.레알 마드리드는 1일(한국시간) 미국 플로리다주 마이애미 가든스의 하드록 스타디움에서 열린 프리시즌 2018 인터내셔널 챔피언스컵(ICC) 맨체스터 유나이티드(이하 맨유)와의 경기에서 1-2로 패했다.이날 경기는 훌렌 로페테기 감독이 이끈 레알의 데뷔전이었다. 로페테기 감독은 스페인 대표팀을 이끌다 2018 러시아 월드컵 개막 직전 경질되는 잡음을 내기도 했다.<U+00A0>로페테기 감독이 월드컵 후 레알 마드리드의 사령탑으로 결정됐다. 하지만 월드컵도 하기 전에 이를 발표하면서 스페인축구협회가 발끈했기 때문이다.로페테기 감독은 유럽축구연맹(UEFA) 챔피언스리그(UCL) 3연패를 이룬 지네딘 지단 감독의 후임이라는 점에서 부담이 없을 수 없었다.<U+00A0>골 결정력도 문제였다. 전반은 가레스 베일, 카림 벤제마가 나서 맨유를 위협했다. 벤제마가 추격골을 떠뜨리긴 했지만 이후 침묵했다. 무엇보다 레알은 후반 시종 맨유 수비진을 몰아부쳤지만 골을 뽑아내지 못했다.<U+00A0>전반에도 높은 점유율을 보였던 레알은 이날 경기 동안 무려 71%의 점유율로<U+00A0>맨유를 압도했다.그러나 레알은 후반 잇따른 공세에도 불구하고 득점을 뽑는데 실패했다. 후반 11분과 18분 마르틴 외데고르와 오스카의 슈팅은 진한 아쉬움을 남겼다. 후반 36분 라울 데 토마스의 문전 처리도 그랬다.결국 유벤투스로 떠난 호날두의 공백이 진하게 느껴졌다. 특히 레알은 후반 들어 이스코, 토니 크로스, 마르코 아센시오 등 주전 멤버들을 총투입하고도 동점골을 뽑아내지 못했다.이날 경기는 맨유가 전반전에서 우위를 보였다. 맨유는 전반 18분 알렉시스 산체스의 선제골로 앞서갔다. 안데르 에레라가 공간에 찔러준 공을 잡은 마테오 다르미안이 빠르게 내준 패스를 산체스는 오른발로 각도를 바꿔 차넣었다.맨유는 전반 27분 에레라의 추가골로 2-0을 만들었다. 후안 마타의 크로스를 산체스가 머리로 연결, 바운드시킨 공을 쇄도하던 에레라가 왼발로 강하게 슈팅으로 연결했다. 산체스는 이날 1골 1도움으로 팀 승리를 이끌었다.레알도 반격에 나섰다. 전반 추가시간 카림 벤제마가 추격골을 터뜨렸다. 벤제마는 왼쪽에서 올라온 테오 에르난데스의 왼발 크로스를 골문으로 쇄도하면서 정확하게 오른발을 갖다 댔다. 하지만 레알은 이후 총공세를 펼쳤지만 추가골을 뽑는데 실패, 프리시즌 첫 경기에 아쉬움을 남겼다.<U+00A0>/letmeout@osen.co.kr[사진] ⓒGettyimages(무단전재 및 재배포 금지)기사제공 OSEN\n\n\t\t\t\t\t\t\n\n\t\t\t\t\t\t\n\t\t\t\t\t\t\n\t\t\t\t\t"write(unlist(partMain), "C:/Rcrawl/naver_sport.txt")
NS <- readLines("C:/Rcrawl/naver_sport.txt")
NS <- lapply(NS, getMorph, "noun")
NS## [[1]]
## NULL
##
## [[2]]
## NULL
##
## [[3]]
## NULL
##
## [[4]]
## [1] "강필주" "기자" "지네딘" "지단"
## [5] "감독" "크리스티" "아누" "유벤투스"
## [9] "가" "후" "선" "보인"
## [13] "마드리드" "결정력" "부족" "마드리드"
## [17] "한국" "시간" "미국" "플로리다주"
## [21] "마이애미" "가든" "하드" "록"
## [25] "스타디움" "열린" "프리" "시즌"
## [29] "인터내셔널" "챔피언스" "컵" "맨체스터"
## [33] "유나이티드" "이하" "맨" "경기"
## [37] "이날" "경기" "로" "폐"
## [41] "테" "감독" "데뷔" "전"
## [45] "로" "폐" "테" "감독"
## [49] "스페인" "대표" "팀" "러시아"
## [53] "월드컵" "개막" "직전" "잡음"
## [57] "내기" "로" "폐" "테"
## [61] "감독" "월드컵" "후" "마드리드"
## [65] "사령탑" "월드컵" "하기" "전"
## [69] "스페인" "축구" "협회" "로"
## [73] "폐" "테" "감독" "유럽축구연맹"
## [77] "챔피언스" "리그" "연패" "지네딘"
## [81] "지단" "감독" "후임" "점"
## [85] "부담" "골" "결정력" "문제"
## [89] "전반" "베일" "카림" "맨"
## [93] "유" "추격" "골" "이후"
## [97] "무엇" "후반" "맨" "수비진"
## [101] "몰아" "골" "전반" "점유율"
## [105] "이날" "경기" "동안" "무"
## [109] "점유율" "맨" "유" "후반"
## [113] "공세" "득점" "후반" "마르틴"
## [117] "데" "오스카" "슈팅" "진한"
## [121] "아쉬움" "후반" "라울" "데"
## [125] "토마스" "문전" "처리" "유벤투스"
## [129] "날" "두" "공백" "후반"
## [133] "이" "토니" "크로스" "마르코"
## [137] "등" "주전" "멤버" "총"
## [141] "동점" "골" "이날" "경기"
## [145] "맨" "유" "전반전" "우위"
## [149] "맨" "유" "전반" "알렉시스"
## [153] "산체스" "선제골" "데르" "레라"
## [157] "공간" "공" "마테오" "미안"
## [161] "패스" "산체스" "오른발" "각도"
## [165] "차" "맨" "유" "전반"
## [169] "레라" "추가" "골" "후안"
## [173] "마타" "크로스" "산체스" "머리"
## [177] "연결" "바운드" "공" "레라"
## [181] "왼발" "슈팅" "산체스" "이날"
## [185] "골" "도움" "팀" "승리"
## [189] "반격" "전반" "추가" "시간"
## [193] "카림" "추격" "골" "왼쪽"
## [197] "테오" "에르" "데스" "왼발"
## [201] "크로스" "골문" "오른발" "이후"
## [205] "총공세" "추가" "골" "실패"
## [209] "프리" "시즌" "경기" "아쉬움"
## [213] "사진" "무단" "전재" "배포"
## [217] "금지" "기사" "제공"
##
## [[5]]
## NULL
##
## [[6]]
## NULL
##
## [[7]]
## NULL
##
## [[8]]
## NULL
##
## [[9]]
## NULL
##
## [[10]]
## NULLNSVec <- unlist(NS)
NSFreq <- table(NSVec)
text <- NS
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] ""library(RHINO)
x1 <- lapply(x, getMorph)
x2 <- lapply(x1, function(x) x[nchar(x)>1])
x3 <- do.call(c, x2)
o <- table(x3)
library(wordcloud)
pal <- brewer.pal(8,"Dark2")
wordcloud(names(o), o, min.freq=3, random.order=F,random.color=T,colors=pal)