[ R ] savePlot() 에서 'windows'장치들로부터 복사만을 할 수 있습니다 해결법 ( can only copy from 'windows' devices ) ( 워드 클라우드, wordcloud )

• wordcloud 생성 전에  windows()를 추가해준다.

 

 

library(usethis)
library(devtools)
library(KoNLP)
library(multilinguer)
library(RColorBrewer)
library(wordcloud)
library(stringr)


request<-read.csv("F://mongtcsv.csv", header = FALSE, stringsAsFactors = FALSE,fileEncoding = "utf-8")
sampledata<-request$V1[1:700]
data_list<- list()
for(i in 1:length(sampledata)){  data<-SimplePos09(sampledata[i]) ;data_list[[i]]<-data}
unlist<-unlist(data_list)
wordlist<-sapply(str_split(unlist,"/"),function(x){x[1]})
tablewordlist<- table(wordlist)
tablewordlist
names(tablewordlist)

sort(tablewordlist,decreasing = T)[1:100]
tablewordlist_result<-tablewordlist[nchar(names(tablewordlist))>1]
tablewordlist_result<-sort(tablewordlist_result,decreasing = T)[1:100]
word<-names(tablewordlist_result)
count<-as.numeric(tablewordlist_result)
windows() // 나는 여기에 추가했다. ############################################
mycolor<-brewer.pal(n=11,name ="Set1")
wordcloud(words = word,freq = count,random.order = F,colors = mycolor)
savePlot("F://wordcloud.png" , type="png")