Question

Hellooverflow中的每个人都好。我是一个新手R用户，并且有lapply功能的问题。

现在我正在使用R版本3.0.1（2013-05-16） - “好运动” 在Ubuntu服务器上运行12.04.2 LTS。

我的问题是我无法使用lapply函数将searchTwitter（在twitteR中）的输出转换为数据帧。

我可以将推文收集到'tweet'变量中，但无法转换为数据框。

我的代码：

require(twitteR) 
require(RJSONIO)
load('cred.Rdata')
registerTwitterOAuth(cred)
tweet <- searchTwitter('bus')
tweet1 <- lapply(tweet, as.data.frame) //error here
df <- do.call("rbind",tweet1)
write.csv(df,file='oneearthquake.csv')

我收到了错误：

Error in data.frame(text= "(tweet text)")
    arguments imply differing number of rows: 1,0

我试过另一个运行相同R版本的Ubuntu服务器，它可以运行没有任何警告。请告诉我解决这个错误的方法？

提前谢谢

Ploy

Answer 1

尝试这样的事情

load('cred.Rdata')
registerTwitterOAuth(cred)
rawtweets <- searchTwitter("bus")

df <- do.call("rbind", lapply(rawtweets, as.data.frame))
write.csv(df, file='oneearthquake.csv')

r - 将searchTwitter输出转换为数据帧？

1 个答案: