导入数据
library(tm)
library(wordcloud)
Text1<-paste(scan("Text1txt",what=character(0),sep=""),collapse="")
Text2<-paste(scan("Text2txt",what=character(0),sep=""),collapse="")
TEXT<-dataframe(c(Text1,Text2),rownames=c("Text1","Text2"))
TEXT_title<-dataframe(doc_id=rownames(TEXT),text=TEXT$cText1Text2
复制
)#这里的doc_id不可替换成别的词
创建数据框格式的文本
#创建数据框格式的文本，第一列是doc_id,第二列是文章内容
TEXT_ds<-DataframeSource(TEXT_title)
复制
构建语料库
Corpus<-VCorpus(TEXT_ds)
复制
针对语料库文本转换
思路：删除语料库中的标点符号，字母转换为小写，删除数字，删除空白字符，过滤掉停止词库之后转换为纯文本。
Corpus<-tm_map(Corpus,removePunctuation)#删除标点符号
Corpus<-tm_map(Corpus,tolower)#转换为小写
Corpus<-tm_map(Corpus,removeNumbers)#删除数字
Corpus <- tm_map(Corpus,stripWhitespace)#删除空白字符
Corpus <- tm_map(Corpus,function(x){removeWords(x,stopwords())})
Corpus <- tm_map(Corpus,PlainTextDocument)#转换为纯文本
复制
针对语料库断字处理，生成词频权重矩阵
Term_matrix<-TermDocumentMatrix(Corpus)
> Term_matrix
<<TermDocumentMatrix (terms: 2462, documents: 2)>>
Non-/sparse entries: 3215/1709
Sparsity : 35%
Maximal term length: 16
Weighting : term frequency (tf)
复制
查看Term_matrix得知2篇文章共2456个字，稀疏度为35%，最大词长度是16。
#计算频率
Term_matrix<-asmatrix(Term_matrix)
复制
#对词频权重矩阵的表头进行命名
colnames(Term_matrix)<-c("Text1","Text2")
复制
#把矩阵转为便于后续统计分析的数据框
Data<-dataframe(Term_matrix)
复制
#导出两篇文章的频率分析结果，文件名为Term_matrix
writecsv(Data,'Term_matrixcsv')
复制
读取文件
readcsv('Term_matrixcsv',header=TRUE,rownames=1)
复制
#分开绘制两篇文章的词云
wordcloud(rownames(Data),Data$Text1,minfreq=95,col=brewerpal(8,"Dark2"),rotper=03)
复制
wordcloud(rownames(Data),Data$Text2,minfreq=95,col=brewerpal(8,"Dark2"),rotper=02)
复制
#两篇文章对比
comparisoncloud(Data,maxwords=250,randomorder=FALSE,colors=c("#00B2FF","#084081"))
复制
#通过设置maxword的大小决定显示图中文本的多少。
两篇文章共有词部分
commonalitycloud(Data,maxwords=120,randomorder=FALSE,colors="#66A61E")
复制
绘制星形图
将Data数据计算频率Freq=n/sum(n)，根据频率绘制星形图。
wordcloud2(Data1,size=04,shape='star')
复制
本文参与 腾讯云自媒体分享计划，欢迎热爱写作的你一起参与！
本文章分享自微信公众号
菜鸟学数据分析之R语言
作者：刘晓雪
原始发表时间：2020-07-25
如有侵权，请联系 cloudcommunity@tencentcom 删除。
展开阅读全文
腾讯云图
文章来自专栏
菜鸟学数据分析之R语言
77 篇文章22 人关注
订阅
评论 (0)
写评论
暂无人发表评论
相关文章
Python数据可视化 词云图 绘制词云的方法总结
pyecharts是基于echarts的python库，能够绘制多种交互式图表，和其他可视化库不一样，pyecharts支持链式调用。
（数据科学学习手札71）在Python中制作个性化词云图
词云图是文本挖掘中用来表征词频的数据可视化图像，通过它可以很直观地展现文本数据中地高频词：
数据挖掘 | 可视化 WordCloud 词云（附详细代码案例)
在七夕节中，博主写了一篇为女友收集QQ聊天记录做可视化词云的文章获得广泛好评，一直有小伙伴希望能出一篇教程，今天他来啦！ 一文带你速通词云♂️
R-wordcloud: 词云图
好几位读者来信说，《R语言数据可视化之美》(增强版)的词云图的代码有问题，我今天更新了一轮，这主要原因在R语言及其包的更新，导致源代码有可能运行错误。R语言的优
WordCloud词云库快速入门（一)
wordcloud是优秀的词云展示第三方库，以词语为基本单位，通过图形可视化的方式，更加直观和艺术的展示文本。
Day10如何给⽑不易的歌曲做词云展示
我们经常需要对分析的数据提取常⽤词，做词云展示。⽐如⼀些互联⽹公司会抓取⽤户的画像，或者每⽇讨论话题的关键词，形成词云并进⾏展示。
词云绘制，推荐三种 Python包外加一个在线网站！
本篇文章先介绍几种制作词云的 Python 库，分别是 WordCloud、StyleCloud、Pyecharts；再加一个在线词云制作网站；最后通过代码实 ***
关于词云可视化笔记一（wordcloud和英文词汇可视化）
一直比较关注数据可视化这块，对于分词和词的可视化却始终不明就里，直到看到词云，当时惊为天人，不过词云的制作还是非常麻烦，直到2017年Python走近我的视野中
词云图，看过没做过？快来，教你秘籍
今天我们来说一说可视化的问题，如果这个时候我们要对频数进行可视化的话，我们首先想到的应该是一个什么样子的图形呢？很多人可能会说是柱状图。还有一些科研喵们，看过我
使用pyecharts绘制词云图-淘宝商品评论展示
词云图是一种用来展现高频关键词的可视化表达，通过文字、色彩、图形的搭配，产生有冲击力地视觉效果，而且能够传达有价值的信息。
WordCloud 中英文词云图绘制，看这一篇就够了
摘要： 当我们手中有一篇文档，比如书籍、小说、剧本，若想快速了解其主要内容是什么，则可以采用绘制 WordCloud 词云图，显示主要的关键词（高频词）这种
Python带你看不一样的《青春有你2》姐之评论内容可视化
详细介绍和用法可以去github看：>
好用的做海报的电脑软件易图设计平台、美图秀秀、Fotor懒设计、文字云、PPT。
1、易图设计平台
易图的轻量级体现在它是一款网页工具，编辑 *** 作在网站上就能完成。在线网页版免除了下载安装的困扰，收藏到浏览器收藏夹，随用随开，更加方便，也更加符合现在大家追求的“轻量级”的要求。
2、美图秀秀
美图秀秀是2008年10月8日由厦门美图科技有限公司研发、推出的一款免费处理的软件，有iPhone版、Android版、PC版、Windows Phone版、iPad版及网页版，致力于为全球用户提供专业智能的拍照、修图服务。
美图秀秀的特效、美容、拼图、场景、边框、饰品等功能，可以1分钟做出影楼级照片，还能一键分享到新浪微博、人人网、QQ空间等。
3、Fotor懒设计
Fotor的每一个界面都体验除了极简主义理念，除了提供轻便而又全能的编辑工具以外，Fotor的设计功能还能满足中小型创业公司、自媒体、学生团体和个体经营者的平面设计需求。对于毫无设计基础的小白来说，也可以很好的设计。
4、文字云
文字云也是很火的海报之一，设计起来比较简单！做海报最常用到的就是图文混合里的功能,因为图文混合可以插入一张素材，立马提升作品逼格，让作品更加有主题。
5、PPT
PPT不是个演示工具么，还能用来制作手机海报？其实，像我们在朋友圈会刷到的课程海报、节日海报，完全都可以用PPT进行制作。完成海报制作后，就可以将它导出为的格式了。
可以用powerpoint2013完成，插入文本框--输入要编辑的文字--找到插入---商店应用--文档审阅--pro word could--点击进入--点击蓝色字体pro word could进入--添加--然后在我的应用中再找到它双击使用--开始使用吧！
前期准备：
1、背景不太复杂的以上图为例。
2、你需要的填充的字（需要粘贴在记事本上哈）。
3、微软雅黑字体，需要自行百度下载。
接下来正式开始
第 1步：打开>
云字写法：横、横、撇折、点。
云拼音yún。
五笔FCU、仓颉MMI、郑码BDZS、四角10732。
结构单一、电码0061、区位5238、统一码4E91。
1、说话，引文：人云亦云。子曰诗云。云云（如此，这样；引用文句或谈话时，表示结束或有所省略）。
2、文言助词，句首句中句末都用：云谁之思？岁云暮矣，着记时也云。
3、水气上升遇冷凝聚成微小的水珠，成团地在空中飘浮：行云流水。云蒸霞蔚。
4、指中国“云南省”：云腿（云南省出产的火腿）。
相关组词：
云朵[yún duǒ]
像花朵一般的云。
云集[yún jí]
（动）比喻许多人从四面八方聚在一起。［近］聚集。［反］星散|云散。
云气[yún qì]
稀薄游动的云。
云梯[yún tī]
古代攻城的工具。
云版[yún bǎn]
云板。
云杉[yún shān]
植物名。松科，常绿乔木。树皮灰褐色，叶子针形，略弯曲，球果长椭圆形，褐色。木材轻而坚硬具d性，适合供制船、纸、乐器等。我国东南部也有。
云汉[yún hàn]
天空联亘如带的星群。
云游[yún yóu]
（动）任意遨游，行踪不定（多指和尚、道士）：～四海。
云板[yún bǎn]
报事之器。
云雨[yún yǔ]
宋玉《高唐赋》叙宋玉对楚襄王问，说楚怀王曾游高唐，梦与巫山神女相会，神女临去说自己“旦为朝云，暮为行雨”，后世因以指男女合欢（多见于旧小说）。
云量[yún liàng]
云量是指云遮蔽天空视野的成数。天空被云遮蔽的程度，用0至10来表示。碧空无云，云量为0；一半被云遮住，云量为5；全部被云遮住，云量为10。
云崖[yún yá]
高耸入云的山崖。
云烟[yún yān]
云雾和烟气：～缭绕。～过眼（比喻事物很快就消失了）。
云头儿[yún tóur]
物的两端左右屈曲旋转成云状的花纹。
云雾[yún wù]
（名）云和雾。多比喻遮蔽或障碍的东西。
下文是利用Mardown进行快速微信排版的教程：
其实，我觉得用markdown书写，然后渲染一下，文章结构清晰而且简洁。
今天教你如何在“简陋编辑器”的现有条件下，利用Markdown+扩展插件来优化微信文章的排版。
Markdown是一个极其优美、简洁的书写语言（不是编程哦！）。一旦使用，极易上瘾！
1Markdown是什么：(下文引用自简书：Markdown——入门指南)
Markdown是一种轻量级的「标记语言」，目前也被越来越多的写作爱好者，撰稿者广泛使用。请不要被「标记」、「语言」所迷惑，Markdown的语法十分简单。常用的标记符号也不超过十个，学习成本很低，且一旦熟悉这种语法规则，会有一劳永逸的效果。
Markdown简洁的语法代替排版，而不像一般我们用的字处理软件Word或Pages有大量的排版、字体设置。它使我们专心于码字，用「标记」语法，来代替常见的排版格式。例如此文从内容到格式，甚至插图，键盘就可以通通搞定了。
2使用Markdown语言写作的好处：
纯文本，所以兼容性极强，可以用所有文本编辑器打开
让你专注于文字而不是排版
格式转换方便，Markdown的文本你可以轻松转换为html、电子书等
结构清晰，排版美观，易读性强
3Markdown简明语法
标题：对于文章的标题1、标题2，你只需要在文字前面加上对应数量的#号，Markdown会自动渲染出格式。
列表：在Markdown下，列表的显示只需要在文字前加上-或即可变为无序列表，有序列表则直接在文字前加123符号，再在符合和文字之间加上一个字符的空格即可。
引用：如果你需要引用一小段别处的句子，那么就要用引用的格式。你只需要在引用的文本前面加上一个>和空格即可，例如：
更多Markdown语法，Markdown——入门指南。（上图转载自简书）
4如何在微信公众平台优化排版
在Chrome上安装markdownhere插件
在微信公众后台使用Markdown语言写作
按住快捷键Ctrl+Alt+M，对Markdown文章进行渲染
至此，什么引用符号、标题样式、分割符、代码栏等样式就一一具备了。拿去得瑟吧！文字排版
文字排版只要掌握基本的设计法则、排版指南就可以搞定，所以这个版块我会直截了当的给大家介绍我尝试过后总结下来的文字排版技巧，只要记住这几点就可以轻松搞定文字排版。
1文字排版参数
文字排版参数，我主要从以下几个方面介绍：
字号：正文建议使用14—16号字，我使用的都是14号字，这样在手机上显示出来效果很好，当然根据文章类型15、16号都是可以使用的。标题建议使用16—22号字体，我基本上使用的是16号字，因为个人不是很喜欢太大的字体，所以选择的偏小，这个都可以根据文章需要在上面的区间进行调整，效果都不错。
字间距：这一参数很少人设置，前面我测试的时候发现设置后在手机上的显示效果，给读者的体验会更好，所以建议设置（用秀米可以设置）我一般用的是1像素，这个效果是最好的。
行间距：行间距建议设置在15—20倍左右，这样不会显得文字太密集，我经常使用的是20倍，效果还是很好，阅读起来眼睛不会太累。
对齐方式：如果没有特殊的排版样式，建议正文部分使用两端对齐的方式，这样在手机上显示出来的效果才会更加整齐，不会呈现出长短不一的效果。
2色彩参数（配色）
文字颜色方面，前面我也看多很多的介绍，自己还尝试过好多种的配色方案，最后做了一张文字的颜色配色方案，还是很实用；关于这一点建议形成自己统一的配色方案，最好是成体系的，这样的话公众号也更具有特点和辨识度。直接给大家上一张图，自己去研究吧。
排版这一点，要说的有点多，我会把我选择的方式、编辑、处理的技巧全部分享给大家。
1怎么找到优质
怎么找到优质的？怎为为公众号配图？可以通过哪些途径找到好看又合适的？公众号前面写过一篇关于找图的，所以直接分享出来，看完这篇，配图轻松搞定。点击下面链接查看。
如何搜索到满意的素材？大家是如何设定自己的关键词的？-任小亮的回答
2怎么设置尺寸
我发现，很多人排版的时候完全不在意的尺寸，只要在手机上能显示出来就好了，这完全是一种错误的理解和行为；我认为一篇好的微信排版就是包括每一张的尺寸都应该是统一的，这样不仅手机上看起来合适，电脑上打开整篇微信也是非常美观的。根据个人经验，建议统一设置成宽度为900像素，宽高比不变；我最常用的工具就是美图秀秀电脑版修改尺寸，方便、快捷，推荐使用。还有一点是一定要提醒的，就是保存的时候一定要用美图秀秀改为jpg格式，不要使用png格式，因为png会让变得很大，不利于在手机中显示，可能网络不好的时候会半天加载不出来，所以为了用户体验，改吧。
3怎么进行排版
排版我只有两点想说的：
一是留白，现在来看留白已经是很多主流排版方式的一种经常性选择，不论是ppt，还是设计行业都有这样的趋势。在微信排版中同样适用，所以建议在排版中文字和之间留一行空白，在手机阅读时体验更好；
二是居中，加入后对齐方式设为居中，可以保证在电脑中查看时也很规整。
4排版中可能遇到的问题
排版有的时候会遇到一些问题，不过这基本上只存在于在编辑器里面应用了样式的情况，不知道这句话能不能理解，不过遇到过这个情况的肯定知道；举个例子可能在秀米中应用了的样式，但是复制到微信编辑器中却显不出来，或者预览到手机上有问题，这种情况就需要在微信编辑器里面直接加入或者换个浏览器再试。不过我微信中的全是在微信的编辑器里添加的，也就不存在这个问题。
5关于文字云文字云，有人知道但不知道怎么生成，有人很熟悉，有人完全不知道，所以今天刚好给大家简单介绍下，我过几天会专门写一篇关于如何制作文字云的文章；今天之所以说到文字云，是因为在微信的排版中根据实际情况有的时候能用上文字云，或是在封面图上用文字云效果非常好，很能突出主题，并且能为整篇微信加分。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）