TanSanC

install.packages("multilinguer")
library(multilinguer)

install.packages("remotes")
remotes::install_github("haven-jeon/KoNLP",
                         force = T,
                         upgrade = "never", 
                         INSTALL_opts = c("--no-multiarch"))

library("wordcloud")
library("RColorBrewer")
library(KoNLP)
useNIADic()
Sys.setenv(JAVA_HOME="C:\\Program Files\\Java\\jre-1.8") # JAVA 환경 설정정
Sys.getenv("JAVA_HOME") # JAVA 환경 설정 확인

data1 <- readLines("c:/TEMP/wordcl1.csv")
data2 <- extractNoun(data1) # list 형태로 바뀜
data3 <- unlist(data2)
data3
data4 <- Filter(function(x) {
  nchar(x) <= 10 & nchar(x) > 1}, data3)
wordcount <- table(data4)
sort(wordcount, decreasing = T)
palete <- brewer.pal(9,"Set3")  
wordcloud(names(wordcount),
          freq=wordcount,
          scale=c(5,1),
          rot.per=0.25,
          min.freq=1, 
          random.order=F,
          random.color=T,
          colors=palete)

텍스트 읽어주는 프로그램, 사이트

텍스트로 작성된 것을 읽어주는 프로그램과 사이트 입니다.

프로그램 테스트용으로 음성파일이 필요한데

마땅한 음성파일을 찾지 못해서

신문 기사 긁어 넣고 쓰고 있네요 ㅋ

JetSpech.zip

설치 하지 않아도 되고요 이런식으로 텍스트만 붙여 넣고

스타트 버튼(▷)만 눌러주면 소리가 나옵니다.

혹은 웹 브라우저에서 소리가 발생하는 것이 필요하다면

http://www.oddcast.com

에서 음성을 읽어 줍니다.