词云制作(以欧也妮葛朗台小说为例)

本文介绍了一种使用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')

*在去除停止词时出现一些错误
shape="R"

shape="star"

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值