r 统计转推数[关闭]答案

【问题标题】：r count number of retweets [closed]r 统计转推数[关闭]
【发布时间】：2015-08-11 01:23:33
【问题描述】：

对于给定的用户，我想计算他在给定时间 startdate 到 enddate 的所有推文中获得的转发总数。

例如，如果用户 John 在 2015 年 1 月 1 日至 2015 年 1 月 30 日期间发布了 100 条推文，如果这 100 条推文中的 30 条到目前为止总共获得了 60 次转发，那么我想提取该值 60 .

我看到了@Ben here 的相关回答。

代码 sn-p 会很有用。

谢谢。

【问题讨论】：

版主注意 我已经清理了 cmets。如果您觉得有必要继续讨论问题的优劣，请带它去聊天。同时，如果您发现此题外话，请投票关闭，但请停止在 cmets 中争论，@john 不要再次删除帖子的内容。

标签： r twitter

【解决方案1】：

这就是我想出的。每条推文都有一个“retweetCount”属性。把这些加起来就行了……

另外，请注意 twitter API 仅提供过去几周左右的推文。历史 Twitter 数据可从各种经销商处获得。 userTimeline 接受最小和最大的 tweetID，而不是日期，因此您必须做一些工作才能获得所需的日期范围。

a <- userTimeline("corynissen", n=100)
> sapply(a, "[[", "retweetCount")
 [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
[39] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 2 0 0 0 1 0 0 0 1 0 0 0 0
[77] 0 0 0 0 0 0 0

> sum(sapply(a, "[[", "retweetCount"))
[1] 8

【讨论】：