r count转发次数

Question

对于一个给定的用户，我想计算他在给定时间内所有推文获得的转发总数开始到结束日期。

例如，如果用户John在2015-01-01至2015-01-30期间推出了100条推文，并且如果这100条推文中的30条到目前为止总共有60条推文，那么我想提取该值60

我已经看到@Ben here的相关答案。

代码段很有用。

感谢。

Answer 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