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

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

littlely_ll

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

阅读量498

点赞数

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

本文链接：https://blog.csdn.net/littlely_ll/article/details/53614807

版权

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

10 篇文章 2 订阅

订阅专栏

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