词云制作（以欧也妮葛朗台小说为例）

最新推荐文章于 2022-01-21 21:02:39 发布

原创最新推荐文章于 2022-01-21 21:02:39 发布 · 574 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#词云 #tm包 #wordcloud包

R语言基础专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一种使用R语言创建词云图的方法。通过读取文本文件并利用tm和wordcloud2库进行预处理和绘图，实现了词频统计及可视化。文章详细展示了去除数字、标点符号和空白字符等步骤，并提供了两种不同形状的词云图示例。

The wordcloud plot

library(tm)
library(wordcloud2)
grandet <- readLines("grandet.txt")
corpus <- Corpus(VectorSource(grandet))
corpus1 <- tm_map(corpus,removeNumbers)
corpus1 <- tm_map(corpus1,removePunctuation)
corpus1 <- tm_map(corpus1,stripWhitespace)
corpus_tdm <- TermDocumentMatrix(corpus1)
corpus_mat <- as.matrix(corpus_tdm)
corpus_sum <- rowSums(corpus_mat)
dat <-    data.frame(cbind(term=names(corpus_sum),frequency=as.numeric(corpus_sum)))
dat$frequency <- as.numeric(dat$frequency)
wordcloud2(dat[dat$frequency>20,],backgroundColor = "black",shape = "R")
wordcloud2(dat[dat$frequency>20,],backgroundColor = "black",shape = 'star')