如何使用lookupuser()函数从用户列表中获取Twitter粉丝的数量

时间:2017-05-30 10:39:54

标签: r twitter

我正试图从我已经知道的一些用户那里获得推特的关注者数量。我正在使用getuser()或lookupuser()但我没有得到我想要的信息。

我做了一个streamR来获取有关某些#标签的信息,然后将其保存在.json文件中。现在我解析了它,我看到的一个列是“in_reply_to_screen_name”,我想知道这些用户的关注者。

我已经完成了一个子集,可以将所有这些名称分组到一个列表中,所以我不想一个接一个地去。 我不知道为什么但getuser()函数返回错误,列表或只是尝试一个用户。错误:找不到函数“getuser”

所以我使用的是lookupuser(),这是一个相同的包,似乎工作但不返回我正在寻找的信息。

  

$ notoliverbutler

     

[1]“notoliverbutler”

     

$ OverTheMoonbat

     

[1]“OverTheMoonbat”

     

$ OHenleyAlex

     

[1]“OHenleyAlex”

代码示例:

subs1<-subset(tweet, (!is.na(tweet[,6]))
sublist<- c(subs1$in_reply_to_screen_name)
userinfo<- lookupUsers(sublist)
userinfo

我感谢一些帮助。 提前谢谢!

在这篇文章中,他们获得了ID,但我正在寻找关注者的数量:How to refer a variable name in getUser in twitteR R package?

1 个答案:

答案 0 :(得分:0)

该信息应位于user包中的twitteR对象中:

user <- getUser("realDonaldTrump")
class(user)
# [1] "user"
# attr(,"package")
# [1] "twitteR"
user$followersCount
# [1] 30929590
str(user$toDataFrame())
# 'data.frame': 1 obs. of  17 variables:
#  $ description      : chr "45th President of the United States of America"
#  $ statusesCount    : num 34964
#  $ followersCount   : num 30929590
#  $ favoritesCount   : num 50
#  $ friendsCount     : num 45
#  $ url              : logi NA
#  $ name             : chr "Donald J. Trump"
#  $ created          : POSIXct, format: "2009-03-18 13:46:38"
#  $ protected        : logi FALSE
#  $ verified         : logi TRUE
#  $ screenName       : chr "realDonaldTrump"
#  $ location         : chr "Washington, DC"
#  $ lang             : chr "en"
#  $ id               : chr "25073877"
#  $ listedCount      : num 69993
#  $ followRequestSent: logi FALSE
#  $ profileImageUrl  : chr "http://pbs.twimg.com/profile_images/1980294624/DJT_Headshot_V2_normal.jpg"

users <- lookupUsers(c("IvankaTrump","realTrumpWomen"))
sapply(users, function(x) x$followersCount)
 # IvankaTrump realTrumpWomen 
 #     3828630            656