利用R制作词云图

本文介绍了如何使用R语言中的jiebaR包对文本进行分词,并利用wordcloud2生成词云图。通过示例展示了如何处理停用词,以提高词云内容的可读性,提供了分词与去除停用词的代码示例,并分享了相关资源链接。
摘要由CSDN通过智能技术生成

      制作词云图本不是难事,利用R或者tableau可以轻松制作出花式词云图,但是词源的获取就不是那么容易了,今天我们就利用R语言中的jiebaR包来对北大校长林建华在北大120周年校庆的致辞做分词,并制作词云图。

      致辞内容保存在‘beida120.txt'中,分词以及绘制词云图代码如下:

> library(jiebaRD)
> library(jiebaR)
> engine <- worker()
> segment("beida120.txt",engine)
[1] "beida120.segment.2018-05-30_14_20_00.txt"
> word <- scan('beida120.segment.2018-05-30_14_20_00.txt',sep='\n',what='',encoding="UTF-8")
Read 1 item
> word <- qseg[word]
> word <- freq(word)
> wordcloud2(word,shape = 'star')

      得到的词云图如下:


      由上图可知,我们分词的内容里由较多的停用词,影响了我们对原文内容的了解,故而我们要将它们清除掉,可通过worker()函数里的stop_word参数进行清除,我们将需要删除的停用词放在stopwords.txt文件

评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值