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

littlely_ll

于 2016-12-13 22:07:18 发布

阅读量553

点赞数

CC 4.0 BY-SA版权

分类专栏： R语言基础文章标签：词云 tm包 wordcloud包

本文链接：https://blog.youkuaiyun.com/littlely_ll/article/details/53614807

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

10 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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')