`rtweet` 包中的 `lookup_friendships` 函数：矩阵存储

问题描述

lookup_friendships 包中的 rtweet 函数提供有关两个 Twitter 用户之间友谊的信息。例如：

x<-lookup_friendships("user1","user0")
x<-x %>% filter(relationship=="source",variable == "following")
value<-x$value

value 是 TRUE 如果 user1 是 user0 的追随者，否则 FALSE 。在我的问题中，我有一个用户列表，例如user0、user1、user2 等。我想存储之前代码的结果，

x<-lookup_friendships("useri","userj")
x<-x %>% filter(relationship=="source",variable == "following")
value<-x$value

对于矩阵中的每个 i>j。我怎么可能继续

解决方法

假设 df 是带有列 user.source、user.target 的数据框。

df$is.follower <- NA
for(i in 1:nrow(df)){
 df$user.source[i] -> source
 df$user.target[i] -> target
 lookup_friendship(source,target) %>% 
  filter(relationship == "source",variable == "following") %>%
  select(value) -> output
  if(output == TRUE){
   df$is.follower[i] <- TRUE
  } else {
   df$is.follower[i] <- FALSE
}