2017-07-02 108 views
1

我有一个数据框中的用户列表。我试图找到这些用户的追随者,并将他们放在一个单一的数据框文件。这里是我的代码:使用get_followers函数在R中追加数据

library(rtweet) 

#Searching users with a specific tweet. 
A <- search_tweets("RT @ReggaeMarleyBob: Sometimes you have no", n=1000) 

#Extract the first column 
B <- as.data.frame(A[1], drop=FALSE) 

# Drop any duplicate user names: 
C <- unique(B) 

#collecting the followers of users in C 
for(i in 1:nrow(C)) { 
    print(C[i,1]) 
    D <- get_followers(C[i,1], n= "all", page = "-1", parse = TRUE, as_double = FALSE, token = NULL) 
} 

有没有一种方法可以将数据附加到C到D?

回答

0

get_followers返回data.frame。你可以附加到一个数据帧使用rbind

D <- c() 
for(i in 1:nrow(C)) { 
    print(C[i,1]) 
    D <- rbind(D, get_followers(C[i,1], n= "all", page = "-1", parse = TRUE, as_double = FALSE, token = NULL)) 
} 
+0

你好,我测试了2个用户的数据帧上的代码。这2个用户共有203个关注者(合并)。该代码给了我18,000个结果。到底是怎么回事?我的代码有什么问题? –

+0

我对前3名用户进行了测试:OneNaziq,AzimRidzuan_,pais_10,他们在twitter上分别有1106,485和597个追随者,而'nrow(D)'正确给出'1106 + 485 + 597 = 2188',所以代码似乎对我有用 – janos

+0

你可以请分享一下代码吗?为什么它不是nrow(C)而是nrow(D)? –