码代码是用来娱乐不是用来干活儿的
“话说那家伙真的是只有晚上的时候才开始工作啊。”
“就是说。不管白天多努力想干活儿，就是提不起精神呢。”
“但是感觉夜里也不是很能熬啊。”
“哈哈哈，杰又开始了。不过，说是晚上干活儿，其实根本没有。”
“啊？我看她是在码代码的样子啊。”
“唔，这个，本来是想为了工作内容试个新的包玩一玩的，结果全用在了娱乐上。”
“啥娱乐需要码代码啊？”
“好像是爬了下网站的数据，再分析词频啊的，然后得出了现在的流行趋势什么的……”
“她真的是懂把有限的精力放在不重要的东西上啊。虽然这些其实也算是有用的信息吧，但感觉对她来说一点没用吧？”
“完全没用~她觉得要是拿这些高频词开始造句的话，说不定能引流。”
“唔~她要开始这么干了吗？”
“怎么可能~她就只是想想而已~”
“确实是她会干的事。哦不，不会干的事。”
“这家伙真的是，昨天不干活的理由是‘因为去了公司身心受到重创没有办法工作’，今天也还是不想干……”
“那理由呢？”
“今天不想干活的理由是‘上午收到了领导的信息影响了心情以至于没有办法工作。’”
“领导骂她啦？”
“完全没有！我呀，有时候看她领导发的信息，都分不清她俩究竟谁是领导。”
“诶？”
“她完全一副混不吝的样子哎~”
“唔，这点跟悟还挺像的呢。”
“我有嘛！杰又拉踩我。”
“哈哈，不过悟是有真本事的。她就是……哎，一言难尽。”
“不过她的话，认真干活儿的时候还挺会总结分析的，有时候也能知道点儿有趣的事，也不是那么没用。”
“吼吼，是嘛，比如呢？”
“比如，她发现‘邪恶轴心国’的研究特色还挺相近的。”
“哈？”
“嗯，就是她扫了领域的几千篇文章……题目之后，发现德国、意大利和日本的研究兴趣覆盖面好像普遍比其他地方的研究要广，什么犄角旮旯、非主流的研究都有。”
“啊，这样。这个确实还是挺有意思的发现呢。”
“而且她觉得日本的研究越发的边缘化了。”
“唔，咒灵太多闹得吧~那个岛确实一直不太平呢。”
“哈哈谁知道呢~”
“还有么？”
“意大利的研究有的虽然很偏僻但很前卫，也在奇怪的时候很有用。”
“哦呼，提到意大利的话，只想到美味的披萨和咖啡了呢。”
“哈哈哈，就是说嘛，意大利的咖啡真的是世界上最好喝的咖啡了！”
“那德国呢？”
“德国啊，你别看是个欧洲国家，但是对草药那种替代疗法还蛮执迷的呢，相对于其他欧洲国家来说啦，算是很敢了。”
“啊，德国看来不止有大猪肘子和香肠~”
“哈哈哈杰什么时候这么贪吃样了！”
“就是好久没有尝到过食物的味道了嘛，偶尔会有点想念。”
“唔……”，五条豆子有些过意不去。
“呀，没关系啦~”
“杰，我每天都在和你吐槽从那家伙那里感知到的事，你会烦吗？”
“诶？怎么了悟？怎么突然这么说。”
“就是……想起那个世界可能发生的事，如果真的是那样，那……那个夏天或许我应该……”
“呀~我保证，现在，在这里的我，真的没有对你有任何隐瞒的喔！”
“嗯嗯。我也没有。”
“哈，悟一直都不曾有。这一点我从没怀疑过。”
“嘻嘻~”
“啊……”
“嗯？”
“看屏幕。”
“啊……”
“果然啊，从刚才开始那投入的样子确实不是在做正经事啊……”
“那段代码的结果是……我？”
“哈哈哈，悟，爱是最扭曲的诅咒，你保重！”
屏幕上是这样的……
> gojo <- c(1,rep(3,18),1,rep(1,20),3,rep(1,17),3,3,3,rep(1,17),rep(3,4),rep(1,15),rep(3,5),rep(1,15),rep(3,4),1,3,rep(1,13),3,1,rep(3,3),1,3,1,rep(3,5),1,rep(3,5),1,3,1,rep(3,3),1,3,1,rep(3,5),1,rep(3,5),1,3,1,rep(3,3),1,3,1,rep(3,5),1,rep(3,5),1,3,1,rep(3,3),rep(1,3),rep(3,11),rep(1,3),rep(3,5),1,rep(3,11),1,rep(3,8),1,rep(3,6),1,3,3,1,rep(3,9),1,rep(3,3),rep(1,3),rep(3,3),1,rep(3,9),1,1,rep(3,7),1,1,rep(3,9),1,3,1,rep(3,5),1,3,1,rep(3,9),1,3,3,1,3,3,3,1,3,3,1,rep(3,9),1,rep(3,3),rep(1,3),rep(3,3),1,rep(3,9),1,rep(3,9),1,rep(3,7),rep(1,16),rep(3,4),rep(1,6),rep(2,6),rep(1,4),rep(3,4),rep(1,11),2,rep(1,4),rep(3,4),rep(1,10),2,rep(1,5),rep(3,3),rep(1,10),2,rep(1,7),3,rep(1,20))
> satoru <- data.frame(matrix(gojo,ncol = 20,byrow = TRUE))