文本挖掘--十九大报告

Posted 2021-04-16 小文的数据之旅

女神

男神男神，听说习大大身在北京，心在我心呢

当然啦，十九大提到了很多惠民的政策！

男神

女神

是吗？我也想看看十九大报告，但字太多了......

有32353个字呢，看完的确要一个多小时！

男神

女神

要是有什么办法可以快速看完就好了zzz...

I can I up！但你必须得叫我男神，还要带我装逼带我飞！！！

男神经的我

废话不多说，看下面的案例吧！！

所需包：

library(dplyr)

library(jiebaR)

library(wordcloud2)

engine <- worker()

text <- readLines(file.choose())

stopwords <- readLines(file.choose())

seg <- segment(text,engine)

seg <- filter_segment(seg,stopwords)

seg <- as.data.frame(table(seg))

seg <- arrange(seg,desc(Freq))

p <- wordcloud2(seg[1:500,], shape = "star", size =0.6, color = "random-light"，

backgroundColor = "black")

十九大关键词

社会主义  人民   坚持  发展  建设

p2 <- letterCloud(seg,word = "中国梦", color = "steelblue")

p3<- wordcloud2(seg, figPath = "D:/数据分析/十九大/天安门.jpg", size =1, color = "red")

      这样一个天安门还是很nice的，小文挖掘十九大报告后，发现报告的关键词是社会主义，人民，坚持，发展，建设，果然习大大是心系人民的！！

      结合多年学习政治时事的经验，小文斗胆串（zhuang）一（zhuang）串（bi）报告的中心思想，“坚持以人民为中心，大力发展，建设社会主义现代化国家。”当然啦，这只是基于关键词yy出来的，看词云还是可以看出很多重要的点，小文就不一一yy了。

      以后想看哪里就看哪里，妈妈再也不用担心我的阅读了！！

一起学习

一起飞