使用R语言将微信记录制作成词云（简洁）--情人节奥义
使用R语言将微信记录制作成词云（简洁）--情人节奥义
一、导出并读入微信聊天记录
参照百度的方法，使用同步助手。安装同步助手--连接手机（安卓苹果均可)--点击“其他功能“--点击微信图标即可进入聊天记录导出界面（非常简单）。
导出数据后直接用read.table读入表格
命令：
dat <- read.table("message.txt",skip=4,header=F,fill=TRUE) #skip跳过前面四行不用的信息；导出时候的信息缺失（语音图片信息等）导致表格不规则，设置fill=TRUE强制读取。聊天记录信息位于第七列。
二、使用Rwordseg包
2.1 使用之前要先安装
install.packages("rJava") #需要java环境
install.packages("Rwordseg", repos = "http://R-Forge.R-project.org")2.2 Rwordseg具有强大的中文分词功能
segmentCN(strwords) #strwords 是中文字符串，还可以文本路径，返回值是一个向量。
> a <- segmentCN("你好R")
> str(a)
chr [1:2] "你好" "R"2.3 Rwordseg还具有导入词库的功能
支持普通词库（txt格式）和搜狗细胞词库（ scel 格式），使用方法：
先从网上下载搜狗的细胞词库(scel格式），再安装
installDict(dictFile,dicttype = c("text", "scel"), load = TRUE) 例如：
installDict("/home/ywliao/Tmp/日常用语大词库.scel",dicttype = "scel", "richang",load = TRUE)
2.4 自定义词典
insertWords("捂脸") #让某词组放入内存
deleteWords(c("捂脸")) #删除某词三 、使用wordcloud2包
3.1 安装
install.packages('devtools')
devtools::install_github("lchiffon/wordcloud2")3.2 使用
wordcloud2(data, size = 1, minSize = 0, gridSize = 0,
fontFamily = NULL, fontWeight = 'normal',
color = 'random-dark', backgroundColor = "white",
minRotation = -pi/4, maxRotation = pi/4, rotateRatio = 0.4,
shape = 'circle', ellipticity = 0.65, widgetsize = NULL) 参数：
（1）data：词云生成数据，包含具体词语以及频率；
（2）size：字体大小，默认为1，一般来说该值越小，生成的形状轮廓越明显；
（3）fontFamily：字体，如‘微软雅黑’；
（4）fontWeight：字体粗细，包含‘normal’，‘bold’以及‘600’；；
（5）color：字体颜色，可以选择‘random-dark’以及‘maxRontatin：字体旋转角度范围的最小值以及最大值，选定后，字体会在该范围内随机旋转；（三角形），‘pentagon’（五边形）；
例如：wordcloud2(freq_dat, size = 1,shape = 'star')#生成星星状的词云
四、实例
情人节将到，将你和TA的聊天记录生成词云发送给TA定会给TA一个惊喜。
分析：
将我和gf的聊天记录生成文件oak_message.txt，在网上下载搜狗细胞词库“网络日常用语大词库.scel”和“网络日常用语.scel”，安装了所需要的rJava,Rwordseg和wordcloud2包。R代码如下：
library(rJava)
library(Rwordseg)
library(wordcloud2)
#加入日常用语细胞词库
installDict("/home/ywliao/Tmp/日常用语大词库.scel",dicttype = "scel", "richang",load = TRUE)
installDict("/home/ywliao/Tmp/网络日常用语.scel",dicttype = "scel", "wangluorichang",load = TRUE)
insertWords(c("捂脸","亲亲"))
dat <- read.table("oak_message.txt",skip=4,header=F,na.strings = "NA",fill=TRUE)
all_message <- ""
for (msg in dat$V7){
all_message <- c(all_message,segmentCN(msg))
}
all_message <- all_message[all_message != ""] #去掉空信息""
freq_dat <- as.data.frame(table(all_message))
wordcloud2(freq_dat,size = 2, minRotation = -pi/6, maxRotation = -pi/6,
rotateRatio = 1) #板报词云
wordcloud2(freq_dat, size = 1,shape = 'star') #星状词云
wordcloud2(freq_dat, size = 2, fontFamily = "微软雅黑",
color = "random-light", backgroundColor = "grey") # 海报词云结果输出为网页文件，打开网页后可截图
什么？博主的gf聊天词云呢？怎么是这个？没错，博主就是学霸哈哈哈哈！最后祝大家情人节快乐！（不管怎样，自己都要快乐！）
参考资料：
电脑上导出微信聊天记录：http://www.cr173.com/html/64463_1.htm
Rwordseq包：http://blog.csdn.net/sinat_26917383/article/details/51056068 ; http://blog.csdn.net/sinat_26917383/article/details/51056068
wordcloud2包：http://blog.csdn.net/sinat_26917383/article/details/51620019