山东省滨州畜牧兽医研究院 山东省农业科学院滨州分院 网络信息中心制作维护 版权所有侵犯必究©鲁ICP备号
Email:办公室： 3012 传真: 3405352 email:地址：山东省滨州国家级经济技术开发区黄河二路169号绿都生物工程高科技园 邮编：256600已收藏本页面
情人下班后就会把我微信拉黑！删除我们的聊天记录！第二天上班再加！和她相处的时间很少！只有偶尔找机会做一次！她1号来大姨妈！现在是13号！今天下午很匆忙找了个时间做了一次！因为没有准备！无套进入！射到里面了，但是我们穿衣服的时候主管进来了撞到了，现在说要开除我们，请问买套套什么颜色的好?
买绿色的吧，跟你脑袋的颜色一样，多和谐啊！
我有一句mmp不知当讲不当讲
[晚安睡觉]
[晚安睡觉]
[晚安睡觉]
回复 82楼：一天不吹闷的慌
你不吹牛你妈不给你饭吃是吧
回复 78楼：，，，，
回复 77楼：吹牛皮留啥图片啊
干完记得留图
回复 61楼：你是往嘴里抹吧？
主管要加入你们
[大笑]
[大笑]
用啥套套，包皮打个结，啥都省了。。。。
回复 13楼：我觉得整个糗百都甘拜下风了，妹妹我服
回复 61楼：咱们能不能淑女一点点
必须买彩虹色的，喜庆啊
回复 24楼：恭喜你情人中奖了
你还不如问挖掘机哪家强，山东汽修厂
你准备把你主管带上，骚年，不用套对你的前途大有帮助
回复 61楼：我想给你来点化妆品
回复 13楼：你好有经验
先解决工作得事吧
回复 61楼：我说怎么看着那么白嫩
回复 57楼：我们为了省钱，啥都不用的，精子都是直接射碗里，我当化妆品用呢
回复 13楼：老司机呀.可是，手套指头太小套上就破！
真笨，和你主管来一发顺顺他的火气
回复 13楼：看样你老公就是用这个的！那你是没见过大家伙啊！
荧光的吧！这样子就像两个绝地武士在用原力剑搏斗
绿色吧，本色演出
回复 51楼：哈哈，你有没有咋办公室弄过?
不吹能死啊
主管喜欢什么颜色买什么颜色
这个弯转的不是很成功，不好意思，我不能给你满分
[臭美]
[臭美]
建议办事记得反锁门
你要问主管，主管决定和你在一起了
弯拐的不急啊，老司机感觉毫无压力呢
[doge]
等会你出的血是什么颜色的你就买什么颜色的
原来审帖的都给过这个
最后一句是亮点，前面一逼带过
让我选择啊 我猜主管今天是开车来的
[呲牙]
[呲牙]
[呲牙]
[呲牙]
[呲牙]
[呲牙]
[奸笑]
[臭美]
买荧光的把，这样关灯后你就可以和你情人玩星球大战了
黑色的 ，这样就看不见了
回复 17楼：真大的胸
不少主管都有3-5个情人，也许会和你分享
也是个办法，你把主管干舒服了，也许还有好事
楼主洗净等主管吧
[难道说]
回复 30楼：嗯，我准备去干了他，实在是没办法了，毕竟吹牛要吹到底嘛
跟主管干，这事就不提了，就是不知道主管要干谁，八层是要干楼主，
蓝色吧，显得典雅！
[诶~]
[诶~]
[诶~]
[诶~]
[诶~]
[诶~]
[诶~]
[诶~]
[诶~]
[诶~]
[诶~]
[诶~]
黑色的显庄重
回复 20楼：我说的对吧
回复 24楼：就是，过日子得细水长流
回复 13楼：别说外面还有凸起来的颗粒，还是是女人会过日子
[doge]
白色显胖，买白色的吧
黑色吧，祭奠你死去的孩儿
主管喜欢什么买什么
回复 18楼：。。。
套套，给主管买的！
回复 17楼：你那大胸
[色色的]还不透明
回复 16楼：…
回复 7楼：你也够透明的
什么乱七八糟的
回复 13楼：天天二十的不是牌子吧老婆
买啥套套，5块钱买那种一次性的医用橡胶薄手套，啪啪的时候剪一个手指套在弟弟上，5块钱可以用10次，套套一盒20老贵了
开除你们？所以你要买套套？？是要被潜的节奏吧
我怎么看不懂
楼主应该问买内裤什么颜色好，什么颜色装B更吊
那都不重要，重要的是你会不会喜当爹
你就只能用黑色
这弯转的闪到腰了
红的，伪大姨妈
回复 2楼：主管说不开除也可以，只要跟他搞基就行
想贿赂主管吗
你可能喜欢的图片笑话
最受欢迎的爆笑笑话
扫码下载糗事百科app更多频道内容在这里查看
爱奇艺用户将能永久保存播放记录
过滤短视频
暂无长视频（电视剧、纪录片、动漫、综艺、电影）播放记录，
按住视频可进行拖动
&正在加载...
举报视频：
举报原因(必填)：
请说明举报原因(300字以内)：
请输入您的反馈
举报理由需要输入300字以内
感谢您的反馈～
请勿重复举报~
请刷新重试~
收藏成功，可进入
查看所有收藏列表
当前浏览器仅支持手动复制代码
视频地址：
flash地址：
html代码：
通用代码：
通用代码可同时支持电脑和移动设备的分享播放
用爱奇艺APP或微信扫一扫，在手机上继续观看
当前播放时间：
一键下载至手机
限爱奇艺安卓6.0以上版本
使用微信扫一扫，扫描左侧二维码，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接http://71.am/udn
下载安装包到本机：
设备搜寻中...
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
连接失败！
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
部安卓（Android）设备，请点击进行选择
请您在手机端下载爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接http://71.am/udn
下载安装包到本机：
爱奇艺云推送
请您在手机端登录爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
180秒后更新
打开爱奇艺移动APP，点击“我的-扫一扫”，扫描左侧二维码进行登录
没有安装爱奇艺视频最新客户端？
情侣闹分手冲动删除微信聊天记录，后悔求怎么恢复微信聊天记录？
正在检测客户端...
您尚未安装客户端，正在为您下载...安装完成后点击按钮即可下载
30秒后自动关闭
情侣闹分手冲动删除微信聊天记录，后悔求怎么恢复微信聊天记录？">情侣闹分手冲动删除微信聊天记录，后悔求怎么恢复微信聊天记录？
请选择打赏金额：
播放量12.7万
播放量数据：快去看看谁在和你一起看视频吧~
更多数据：
热门短视频推荐
Copyright (C) 2018 & All Rights Reserved
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制
正在为您下载爱奇艺客户端安装后即可快速下载海量视频
正在为您下载爱奇艺客户端安装后即可免费观看1080P视频
&li data-elem="tabtitle" data-seq="{{seq}}"& &a href="javascript:void(0);"& &span>{{start}}-{{end}}&/span& &/a& &/li&
&li data-downloadSelect-elem="item" data-downloadSelect-selected="false" data-downloadSelect-tvid="{{tvid}}"& &a href="javascript:void(0);"&{{pd}}&/a&
选择您要下载的《
后才可以领取积分哦~
每观看视频30分钟
+{{data.viewScore}}分
{{data.viewCount}}/3
{{if data.viewCount && data.viewCount != "0" && data.viewCount != "1" && data.viewCount != "2" }}
访问泡泡首页
+{{data.rewardScore}}分
{{if data.rewardCount && data.rewardCount != 0 && data.getRewardDayCount != 0}}1{{else}}0{{/if}}/1
{{if data.rewardCount && data.rewardCount != 0 && data.getRewardDayCount != 0}}
+{{data.signScore}}分
{{data.signCount}}/1
{{if data.signCount && data.signCount != 0}}
色情低俗内容
血腥暴力内容
广告或欺诈内容
侵犯了我的权力
还可以输入
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制　　就在上个月29号我妹哭着带着他5岁大的女儿到我妈家说他老公又赌了把家里的房子还有她的车子都抵押了飞去澳门赌了！现在人还欠赌场50万被扣在那里了！她要跟她老公离婚！日子没办法过下去了！当时我们都信了因为她老公之前就有前科！喜欢赌！也全都支持她离婚！因为一个人再迷恋赌也不能不顾妻儿老小以后的生活啊！已经可以说是没人性了。　　我是她姐算的上比较了解她，总感觉这件事怪怪的。然后昨晚趁她睡着时查看了微信记录。　　　　　　　　以上是我妹跟她老公的记录。我妹通过截图方式微信发送给他的情人的。大家注意看日期。　　　　　　　　　　以上是她跟情人的记录　　看到下面这些是我多想了吗　　　　　　　　最后我哭了。　　　　　　　　　　看到他老公的我奔溃了，这一家是怎么了，　　　　　　我也总共就看到这几处可疑点。大家告诉我你们看到这些会是怎么想的。
主帖获得的天涯分：0
楼主发言：1次 发图：0张 | 更多 |
　　记录都是存在的，是可以恢复查到的！推荐加Q 是专业查询微信记录的，信誉非常好，建议联系肯定能够帮忙查询到的！
　　这广告，双簧演的，简直。。。。　　
　　@打工买房娶老婆
19:47:14　　这广告，双簧演的，简直。。。。　　-----------------------------　　缺少米，加我好友，备注，缺米。详聊
　　@打工买房娶老婆
19:47:14　　这广告，双簧演的，简直。。。。　　-----------------------------　　@DearSLin
10:39:27　　缺少米，加我好友，备注，缺米。详聊　　-----------------------------　　没人吗？
<span class="count" title="
<span class="count" title="
<span class="count" title="
<span class="count" title="
请遵守言论规则，不得违反国家法律法规回复(Ctrl+Enter)这篇文章大概在好几个月前就存在在脑海中。最开始是看了《迟到的情人节礼物：做一个与她微信聊天的词云吧》，觉得作者写的很好玩，那个时候因为工作的原因刚开始学习R语言，一窍不通，我就想着那就用R学着同样分析一遍好了，应该能收获不少。于是，我开始分析和男友的微信聊天记录，只不过正如原文作者所说，分析着，情人节变情人劫怎么办？Anyway,
今天是来交作业的。
获取数据源
首先《迟到的情人节礼物：做一个与她微信聊天的词云吧》一文中的作者已经写的非常详细了，我也完全按照原文章中的步骤操作。不过在这里给大家两小提示：
1）网上有各类提取微信聊天记录的软件或攻略，每个mac版都试过，都不可行，最后只有iMazing可以成功提取。
2）iMazing, 一定要下载正版，我就是因为误下盗版，差点把手机毁掉，到现在手机感觉还是有点坏坏的（后遗症）。这个软件功能强大，用不好的话IPhone变板砖。
原文是用Python写，下面是我的R代码，略有不同。本人代码能力为0，太复杂循环算法都写不了，只能按照自己的思路一点点拼出来。
library(RSQLite)
library(plyr)//连接SQLitle数据库conn &- dbConnect(dbDriver("SQLite"), dbname="MM.sqlite")//设置连接函数doCountQuery &- function(conn,table){
query &- paste("SELECT COUNT(name) FROM ",table,sep ="")
t &- dbGetQuery(conn,query)
table_name &- dbGetQuery(conn, "SELECT name FROM sqlite_master where type='table' and name like 'Chat_%' order by name")//取出所有表名，由于不会遍历，只能按照最笨的办法，计算哪个表的数据量最多，即是和男盆友的聊天记录表，如果不是和男盆友的聊天表，此方法是找不出来counts &- numeric(0)for (i in 1:length(table_name) ){
count &- doCountQuery(conn,table_name[i])
counts[i] &-count[[1]]
}//计算表长table_count &- data.frame(counts)//排序，表长最大的表，即是和男朋友的聊天记录表table_count1 &- table_count[order(table_count$counts,decreasing=TRUE),]//提取到聊天内容message &- dbGetQuery(conn, "SELECT * FROM Chat_XXXXXXXXXX ")
拿到数据后就是进行文本分割，由于数据量实在庞大，我的电脑已经跑死好几次。后来，在完全不懂，也不知如何求解的情况下，靠部分代码和部分Excel互相切换，得到了想要的结果。
library(jiebaRD)
library(jiebaR)
library(data.table)
library(stringr)
cutter=worker()
wechat_content =message
wechat_content &- as.character(wechat_word$V1)///由于数据量过大，不知道为什么只用cuter无法把所有数据都遍历到，无奈只能写简单的函数每一条遍历切割cut_y &- function (y){
y=gsub("\\.","",y)
cutter[as.character(y)]
}//遍历切割每一条聊天内容y.out &- sapply(wechat_content,cut_y,USE.NAMES = F)//去除数字y.out&-gsub("[0-9]+?","",y.out)// 去除停止词s &- read.csv(‘stopwords.csv’)
stopwords &- c(NULL)for (i in 1:length(s))
stopwords[i] &- s[i]
y.out &- filter_segment(y.out,stopwords)//遍历计数后再组合到一起wechat_content_whole &- as.array(0)for (i in 1:length(y.out)){
table_content &- count(y.out[[i]])
wechat_content_whole &- rbind(wechat_content_whole,table_content)
}//最后计数wechat_content_whole &- count(wechat_content_whole,"x")//从大到小排列wechat_content_whole&- wechat_content_whole[order(wechat_content_whole$freq,decreasing=TRUE),]//提取前1000条做词云wechat_words_final &- table_content_whole_final[1:1000,]//颜色从粉到白函数clufunc &- colorRampPalette(c("pink","white"))//形成词云 wordcloud2(wechat_words_final, fontFamily = "HYTangTangCuTiJ", figPath = "love.jpg", size=1, color=clufunc(1000))
一年零三个月
这次的分析一共收集了一年零三个月的聊天记录，总提取34442行数据，17万+个分词，下面的图就是最后提取的前1000个高频词的词云。
在过程中也发现了一些别样的东西：
“马老师”的字眼反复出现，这绝不是补习班的老师，更不是制服诱惑，马老师，一起加油
另外，在我们的聊天内容中，最常用的十大emoji竟是它们：
点赞最多，看来我们互相很认可对方，但是生气为啥也那么多？
此外，我还挑出过去N次吵架的聊天记录，做了下面的图。情人之间的吵架大概都大同小异吧，没有安全感，互相拒绝着对方，说着伤人的话。
这个一次次丢掉又捡起来的小学习作业终于划上了一个句号。分析的过程的确痛苦，一方面要学习各种语法，另一方面，翻开聊天记录就像扒开自己的肉一样疼，回忆一幕幕，开心难过百感交集。这之间有自己的迷茫，有学术的无知，也有爱情的摸索，幸好，我们依旧，携手走在一起。
这个小分析同时也是一个起点，这几个月在R语言上收获颇多。没想到开始的机缘巧合燃起了对R的热情。学习过程，不像学校里的课程授课，几乎都是想实现一个功能，于是去查找，找到一个语法，联系到更多的知识，联系，联系，最后再串起来。
记得从最一开始rJava包在我的电脑上没法安装，在Google上翻过所有的问答，StackOverflow成了我泡得最多的网站，远在英国的同学也帮忙解答。。。每一次反复调代码的时候，都是深夜凌晨，可当调好的瞬间又那么欣喜如狂。
再回头看，这个小作业很简单，但是从中已经学到了R语言里几乎所有的基础语法，虽然中间部分的算法还很凌乱，至少为自己感到骄傲。现在可以任意用ggplot画一个漂亮的统计图，而不是千篇一律的Excel。当然，如果有大神能拯救我以上杂乱的算法，欢迎指导学习，也希望下一个学习项目能分享和发现更多有趣的东西。
分享朋友圈 也是另一种赞赏
The more we share, The more we have
欢迎加入数据君高效数据分析社区
加我私人微信进入大数据干货群：tongyuannow
目前100000+人已关注加入我们
爱情大数据 | 你的专属微信聊天记录统计
用R语言做自己的微信聊天记录词云
R || 聊天记录分析（二）
没有更多推荐了，