wordcloud2 R

最新推荐文章于 2024-09-13 22:06:00 发布

zengxu_!!!

最新推荐文章于 2024-09-13 22:06:00 发布

阅读量239

点赞数

分类专栏： R语言文章标签： R wordcloud2 词云 csdn zengxu

本文链接：https://blog.csdn.net/Parkzeng/article/details/103155175

版权

R语言专栏收录该内容

3 篇文章 0 订阅

订阅专栏

简单词云

csdn特色词云

library(wordcloud2)
library(jiebaR)
library(dplyr)
library(stringr)

getwd()
txt <- scan(file = "C:\\Users\\zengxu\\Documents\\r_project\\materail_for_cloudword.txt", sep = '\n', what = '', encoding = "UTF-8")
head(txt)

wk <- worker(stop_word = "C:\\Users\\zengxu\\Documents\\r_project\\stop_word.txt")
txt <- str_remove_all(txt,'[^[\u4e00-\u9fa5]]')
seg <- segment(code = txt,jiebar = wk)
seg_table <- freq(seg) %>% arrange(desc(freq))
seg_table_top <- head(seg_table,100)
# letterCloud(seg_table_top,word = "H")
wordcloud2(data = seg_table_top,shape = "pentagon") + WCtheme(3)