Question

我正在尝试获取XYZ的关注者并按照他们的关注者计数的降序来获取它们（假设我们考虑400个关注跟随者数量的最关注者）。代码是 -

library(twitteR)
user <- getUser("XYZ")
followers <- user$getFollowers()
b <- twListToDF(followers)
f_count <- as.data.frame(b$followersCount)
u_id <- as.data.frame(b$id)
u_sname <- as.data.frame(b$screenName)
u_name <- as.data.frame(b$name)
final_df <- cbind(u_id,u_name,u_sname,f_count)
sort_fc <- final_df[order(-f_count),]
colnames(sort_fc) <- c('id','name','s_name','fol_count')

我面临的第一个问题是它没有给我所有关注者的列表。我推测这是因为twitter有15分钟的API限制。无论如何，我可以解决这个问题？

我要做的第二件事是让这些粉丝的跟随者（朋友）按照他们的追随者数量的降序排序。假设我们在追随者数量方面排名前100位。

包含数据框中所有跟随者跟随者的后续代码是（数据框的列名是：代表用户的奇数列，代表跟随者跟随者数的偶数列）：

alpha <- as.factor(sort_fc[1:400,]$s_name)
user_followees <- rep(list(list()),10)
fof <- rep(list(list()),10)
gof <- rep(list(list()),10)
m <- data.frame(matrix(NA, nrow=100, ncol=800))
colnames(m) <- sprintf("%d",1:80)
for(i in 1:400)
{   
    user <- getUser(alpha[i])
    Sys.sleep(61)
    user_followees[[i]] <- user$getFriends(n=100)
    fof[[i]] <- twListToDF(user_followees[[i]])$screenName
    gof[[i]] <- twListToDF(user_followees[[i]])$followersCount
    j <- 2*i-1
    k <- 2*i
    m[,j] <- fof[[i]]
    m[,k] <- gof[[i]]
    c <- as.vector(m[,j])
    d <- as.vector(m[,k])
    n <- cbind(c,d)
    sort <- n[order(-d),]
    m[,j] <- sort[,1]
    m[,k] <- sort[,2]
}

我在这里遇到的错误是：

[1] "Unauthorized"
Error in twInterfaceObj$doAPICall(cmd, params, method, ...) : 
  Error: Unauthorized

我正在使用 Sys.sleep（61），因此我每分钟不会进行超过1次搜索（因为Twitter API限制是15分钟15分钟，所以我猜这很好用）。

会话信息：

> sessionInfo()
R version 3.0.0 (2013-04-03)
Platform: i386-w64-mingw32/i386 (32-bit)

locale:
[1] LC_COLLATE=English_United States.1252 
[2] LC_CTYPE=English_United States.1252   
[3] LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                          
[5] LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] twitteR_1.1.6  rjson_0.2.12   ROAuth_0.9.3   digest_0.6.3   RCurl_1.95-4.1
[6] bitops_1.0-5

我是R的新手，需要这种操作来处理兴趣图构建。所以，如果有人能帮助我，我会很高兴的。

非常感谢您提前提供任何帮助。

在R中获取大量关注者和关注者

0 个答案: