R 설치

1. R 설치 → 현재 버젼에서 KoNLP 에러남

2. 이전버전으로 설치

   Previous releases of R for Windows

3. KoNLP 설치 참고자료

   R에서 패키지 설치오류 해결 방법

   R 4.0. 이상 KoNLP 설치순서 │KoNLP 설치 오류 해결 │한글 텍스트 마이닝

실습 예제 파일

jeju.txt

실습 코드

setwd("c:\\\\R_temp")

install.packages("multilinguer")
library(multilinguer)
install_jdk( ) 
install.packages(c("hash", "tau", "Sejong", "RSQLite", "devtools", "bit", "rex", "lazyeval", "htmlwidgets", "crosstalk", "promises", "later", "sessioninfo", "xopen", "bit64", "blob", "DBI", "memoise", "plogr", "covr", "DT", "rcmdcheck", "rversions"), type = "binary")
install.packages("remotes")
remotes::install_github('haven-jeon/KoNLP', upgrade = "never", INSTALL_opts=c("--no-multiarch"))

#install.packages("KoNLP")
install.packages("wordcloud")
install.packages("stringr")

library("KoNLP")
library("wordcloud")
library("stringr")

#install.packages("waldo")
#install.packages("knitr")

useSejongDic()
extractNoun("아버지가 방에 들어가신다")

#mergeUserDic(data.frame(readLines("mergefile.txt"), "ncn"))

txt <- readLines("jeju.txt", encoding="UTF-8")
txt
place <- sapply(txt,extractNoun,USE.NAMES = F)

class(place)
head(place, 2)
c <- unlist(place)
c
place <- Filter(function(x){nchar(x) >=2}, c)
place
res <- str_replace_all(place,"[^[:alpha:]]","")
res <- res[res != ""]

res <-gsub("제주","",res)
res <-gsub("제주","",res)

write(res,"jeju2.txt")
res2 <-read.table("jeju2.txt")
class(res2)
head(res2)
wordcount <- table(res2)
head(sort(wordcount, decreasing=T),30)

library(RColorBrewer)
palete <- brewer.pal(9,"Set1")

wordcloud(names(wordcount),freq = wordcount,scale = c(5,1),rot.per=0.25,
          min.freq=2,random.order = F,random.color = T, colors = palete)