代码如下:
library(wordcloud2)
orgtext<- text1 #text1是用pdf_text读取出来的文章
seg <- qseg[orgtext] #分词
seg <- seg[nchar(seg)>1] #去除字符长度小于2的词
seg <- sort(seg, decreasing = TRUE)[1:100] #取前200词做词云即可
seg <- table(seg) #转换类型
wordcloud2(seg, size = 1, shape = 'circle',color = 'random-light',
fontFamily = "微软雅黑")#渲染词云
我用R自带的演示也画不出来图,想问问怎么解决 感谢!
你好,我是有问必答小助手,非常抱歉,本次您提出的有问必答问题,技术专家团超时未为您做出解答
本次提问扣除的有问必答次数,将会以问答VIP体验卡(1次有问必答机会、商城购买实体图书享受95折优惠)的形式为您补发到账户。
因为有问必答VIP体验卡有效期仅有1天,您在需要使用的时候【私信】联系我,我会为您补发。