0

我正在分析 Twitter 数据并使用该rtweet包来访问我需要的数据。大多数情况下它工作正常，我得到了我想要的推文。我的问题是，我需要将数据转换为 csv 文件，以便可以在 Excel 中打开它。

我尝试使用以下代码另存为 csv，但是当我在 Excel 中打开它时，一切都搞砸了。write_as_csv(denmarkdotdk_tweets_organic, file_name = "DK1tweets.csv", prepend_ids = TRUE, na ="", fileEncoding = "UTF-8") save_as_csv(denmarkdotdk_tweets_organic, file_name="DK1tweets.csv", prepend_ids = TRUE, na = "", fileEncoding = "UTF-8")

到目前为止，我已经通过下面显示的命令下载了数据。我希望有人能回答我的问题:)

#timeline for denmarkdotdk
denmarkdotdk <- get_timeline("@denmarkdotdk", n=3200)
denmarkdotdk

#remove retweets
denmarkdotdk_tweets_organic <- denmarkdotdk[denmarkdotdk$is_retweet==FALSE,] 

#remove replies
denmarkdotdk_tweets_organic <- subset(denmarkdotdk_tweets_organic, is.na(denmarkdotdk_tweets_organic$reply_to_status_id))
denmarkdotdk_tweets_organic
4

1 回答 1

0

请使用以下命令重试您的数据下载：

library(rtweet)
df <- search_tweets("@denmarkdotdk", n = 3200, include_rts = FALSE, retryonratelimit = TRUE)     #no retweets included
save_as_csv(df, "df.csv", prepend_ids = TRUE, na = "", fileEncoding = "UTF-8")

..并且使用您的方法也适用于：

library(twitteR)
#timeline for denmarkdotdk
denmarkdotdk <- get_timeline("@denmarkdotdk", n=3200)
df <- as.data.frame(denmarkdotdk)
head(df)
#remove retweets
df1<- df[df$is_retweet==FALSE,] 
head(df1)
df2 <- df1[df1$reply_to_status_id=="NA",]
dim(df2)
head(df2)
df3  <- subset(df1,is.na(df1$reply_to_status_id))  # -replies
head(df3)
dim(df3)

save_as_csv(df3,"df3.csv",prepend_ids = TRUE, fileEncoding = "UTF-8")
于 2020-03-20T00:33:35.123 回答