导入数据
library(tm)
library(wordcloud)
Text1<-paste(scan("Text1.txt",what=character(0),sep=""),collapse=...Text2"))
TEXT_title<-data.frame(doc_id=row.names(TEXT),text=TEXT$c.Text1..Text2.
)#这里的doc_id不可替换成别的词
创建数据框格式的文本...#创建数据框格式的文本,第一列是doc_id,第二列是文章内容
TEXT_ds<-DataframeSource(TEXT_title)
构建语料库
Corpus<-VCorpus(TEXT_ds...Term_matrix
write.csv(Data,'Term_matrix.csv')
读取文件
read.csv('Term_matrix.csv',header=TRUE,row.names=1)
#分开绘制两篇文章的词云...绘制星形图
将Data数据计算频率Freq=n/sum(n),根据频率绘制星形图。
wordcloud2(Data1,size=0.4,shape='star')
?