词云

library(wordcloud2)
setwd("D:/R files/CFY-R-code/10.wordcloud")
a <- read.csv("a.csv", header = T)
head(a)

##         word freq
## 1      China   85
## 2      great   73
## 3       huge   48
## 4 believe me   42
## 5        win   31
## 6        CNN   26

wordcloud2(a, size = 1.2, color = "random-light", backgroundColor = "black")

wordcloud2(a, size = 0.8, color = "random-light", backgroundColor = "black", shape = "circle")

letterCloud(a, word = "T", size=0.8)

wordcloud2(a, figPath = "T.png", size = 1.2, color = "random-light", backgroundColor="black")