0

我对 R 和 twitteR 都比较陌生，我正在尝试编写一些代码，允许我导出一个显示多个 Twitter 用户名的数据框，每个用户名的朋友数，每个关注者的数量，次数它们列在公共列表中，以及它们被提及的次数，希望如下所示：

用户| 日期| 朋友| 追随者| 上市| 提及| 状态计数

我可以在 SO 上找到的最接近的参考是这个问题，它在 "Hold" 上，当我尝试运行列出的代码时，它会给出以下错误：

"Error in fix.by(by.x, x) : 
  'by' must specify one or more columns as numbers, names or logical"

代码：

library(RCurl)
library(bitops)
library(digest)
library(ROAuth)
library(rjson)
library(twitteR)
options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))

load("twitteR_credentials")
registerTwitterOAuth(twitCred)

clients <- lookupUsers(c('Name','Name1','Name2'), cainfo = "cacert.pem")

for(i in 1:length(clients)) {
   start <- getUser(clients[i])
   friends.object <- start$friendsCount
   followers.object <- start$followersCount
   status.object <- start$statusesCount
   listed.object <- start$listedCount
   mentions.object <- start$mentions
   data <- merge(data.frame(User=start$id, Friends=friends.object), 
                 data.frame(User=start$id, Followers=followers.object), 
                 data.frame(User=start$id, Statuses=status.object), 
                 data.frame(User=start$id, Listed=listed.object)
                 data.frame(User=start$id, Mentions=mentions.object), all=T)
   filename <- paste(clients[i],"Twiter Data.csv", sep=' ')
   setwd("filepath")
   write.csv(data, file=filename)
   remove(data)
}

任何帮助，将不胜感激。

4

0 回答 0