R语言词频统计与词云显示

text <- readLines("D:/Projects/rProjects/wordcloud/data.txt", encoding = "UTF-8")
txtList <- lapply(text, strsplit," ")
txtChar <- unlist(txtList)
txtChar <- gsub(pattern = "\"", replacement = "", txtChar)
data <- as.data.frame(table(txtChar))
colnames(data) = c("Word","freq")
ordfreq <- data[order(data$freq,decreasing = T),]
ordfreq

wordcloud2(dataordfreq, size=2, shape='star', color='random-dark', backgroundColor="white", fontFamily="微软雅黑")