# 文字探勘

文字雲1

install_github("lchiffon/wordcloud2")
library(wordcloud2)

wordcloud2(demoFreq, size = 1, shape = "star")
letterCloud(demoFreq, "M", 
            wordSize = 0.3, 
            color = "black", 
            backgroundColor = "yellow")

# import Dewey's data
library(readxl)
Dewey <- read_xlsx("Dewey.xlsx")

Dewey_df <- data.frame(Dewey)

Dewey_df

wordcloud2(Dewey_df, size= 0.7, color= "blue")
wordcloud2(Dewey_df, figPath = "d.jpg", size= 0.7, color= "blue")