R语言文本分词和词云制作

本文展示了如何使用R语言进行文本分词和词云制作。首先,导入了rJava、Rwordseg和wordcloud2库,接着读取了文本数据并进行分词。然后,通过去除停用词、URL和特殊字符,筛选出有效的词汇。最后,统计词频,生成并展示了词云图。
摘要由CSDN通过智能技术生成
library("rJava")
library("Rwordseg")
library("wordcloud2")

# 读入数据
mydata<-read.csv("未来简史.txt",encoding ="UTF-8", stringsAsFactors=FALSE,header=FALSE)
human_future_txt<-segmentCN(as.character(mydata$V1))
human_future_txt

# 向量化
human_future_aslist<-unlist(human_future_txt)
human_future_aslist
length(human_future_aslist)
# 去停词 
#help("gsub")
#剔除URL等各种不需要的字符,还需要删除什么特殊的字符可以依样画葫芦在下面增加gsub的语句
human_future_aslist <- gsub(pattern="http:[a-zA-Z\\/\\.0-9]+","",human_future_aslist)
human_future_aslist <- gsub("\n","",human_future_aslist)
human_future_aslist <- gsub(" ","",human_future_aslist)

#v_aslist <- gsub("\\d","",v_aslist)
human_future_aslist
length(human_future_aslist)


#过滤掉1个字的词
human_future_aslist 
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值