1

大家好 Stackoverflow 中的每一个人。我是新手 R 用户，并且遇到 lapply 功能问题。

现在我使用的是 R 版本 3.0.1 (2013-05-16)——在 Ubuntu 服务器 12.04.2 LTS 上运行的“Good Sport”。

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

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

我的代码：

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 服务器上进行了尝试，它可以在没有任何警告的情况下运行。请告诉我解决此错误的方法吗？

先感谢您

策略

4

1 回答 1

2

尝试这样的事情

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

df <- do.call("rbind", lapply(rawtweets, as.data.frame))
write.csv(df, file='oneearthquake.csv')
于 2013-06-30T19:57:46.793 回答