使用twitteR包:https://cran.r-project.org/web/packages/twitteR/twitteR.pdf
连接到Twitter API:
library (twitteR)
consumer_key <- "xxxx"
consumer_secret <- "xxxx"
access_token <- "xxxx"
access_secret <- "xxxx"
setup_twitter_oauth(consumer_key, consumer_secret, access_token, access_secret)
获取与#nantes查询匹配的10条相关推文的集合:
nantes_tag <- searchTwitter("#nantes", n =10)
nantes_tag <- twListToDF(nantes_tag) # converting to df
从我的data.frame对象中提取id的向量:
user_id <- nantes_tag$id
短输出:
user_id <- c("800684281337147392",
"800684281295212544",
"800684084687228928",
" 800684024406609923",
"800683967884050432")
如何使用getuser()
函数获取每个id的用户信息并将它们存储在data.frame对象中?
我尝试没有成功:
users <- lookupUsers(user_id)
我可以使用user_id
对get_user()
进行循环吗?
答案 0 :(得分:3)
我建议你不要使用Id
,而是建议你使用用户的screen names
usernames <- nantes_tag$screenName
然后将这些屏幕名称的字符向量传递给lookupUsers
,然后将其包裹在twListToDF
周围以获得数据帧格式所需的输出。
temp_df <- twListToDF(lookupUsers(usernames))