永利棋牌官方下载-www.55402.com-永利国际唯一指定官网

永利棋牌官方下载提供最新最好玩的真人游戏,www.55402.com是澳门国际娱乐平台官方网站唯一授权会员登录手机版,www.316net,www.366net,516.net,626.net,766.net,www.565.net,www.16.net,bwin62.com,bwin180.com,永利国际唯一指定官网为新老顾客提供更多的精彩娱乐项目,,所有的玩家都可以得到注册送体验金的巨大福利是设身处地为玩家量身订造的经典网站。

使用R语言将微信记录制作成词云(简洁)--情人

黄金时代、导出并读入Wechat闲聊记录

使用R语言将微信记录制作成词云(简洁)--情人节奥义。    参照百度的方法,使用同步帮手。安装同步帮手--连接手提式有线电话机(安卓苹果均可卡塔尔--点击“别的职能“--点击微信Logo就能够进入闲聊记录导出分界面(极度简单)。

     导出多少后直接用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 = "")

    2.2 途乐wordseg具有强有力的中文分词作者用

        segmentCN(strwords)  #strwords 是华语字符串,还足以文件路线,重返值是二个向量。

        > a <- segmentCN("你好R")
        > str(a)
           chr [1:2] "你好" "R"

    2.3 XC60wordseg还具有导入词库的效用

         支持经常词库(txt格式)和搜狗细胞词库( scel 格式),使用方法:

          先从网络下载搜狗的细胞词库(scel格式),再安装

          installDict(dictFile,dicttype = c("text", "scel"), load = TRUE)  

         例如:

使用R语言将微信记录制作成词云(简洁)--情人节奥义。           installDict("/home/ywliao/Tmp/常常用语大词库.scel",dicttype = "scel", "richang",load = TRUE卡塔尔   

    2.4 自定义词典

使用R语言将微信记录制作成词云(简洁)--情人节奥义。        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’甚至‘max罗恩tatin:字体旋转角度范围的最小值甚至最大值,选定后,字心得在该限量内随机旋转;(三角形),‘pentagon’(五边形);

   例如:wordcloud2(freq_dat, size = 1,shape = 'star')#生成星星状的词云

四、实例

    兰夜将到,将您和TA的闲谈记录生成词云发送给TA定会给TA一个欣喜。

    分析:

     将笔者和gf的闲聊记录生成文件oak_message.txt,在英特网下载搜狗细胞词库“网络平时用语大词库.scel”和“网络平常用语.scel”,安装了所急需的rJava,ENCOREwordseg和wordcloud2包。Tiguan代码如下:

        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卡塔尔(英语:State of Qatar)
      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")  # 海报词云

    结果输出为网页文件,张开网页后可截图

图片 1

    什么?博主的gf闲聊词云呢?怎么是以此?对的,博主正是学霸哈哈哈哈!最后祝大家乞巧节开心!(不管怎么着,本身都要兴奋!)

 

 

参谋资料:

微处理机上导出Wechat闲聊记录:

Rwordseq包: ;

wordcloud2包:

                 

 

本文由永利棋牌官方下载发布于星星堆满天,转载请注明出处:使用R语言将微信记录制作成词云(简洁)--情人

您可能还会对下面的文章感兴趣: