我正在使用 R 中的 Twitter API 提取推文。我一直在使用 write.csv2 命令将结果保存到 r 中的 csv 中,这很好,但存在一个问题,即推文文本中的字符返回导致多行一条推文的电子表格。
我尝试过使用 str_replace_all 但它似乎对我不起作用,而且我找不到任何原因。
这是我的代码
searchTags = c("Galwaybikeshare", "Corkbikeshare", "dublinbikes", "BelfastBikes", "SantanderCycles", "CitiBikeNYC", "obike", "Hubway", "bicing")
additionalParams = c("-rt -http")
searchString <- paste((paste(searchTags[1:9], collapse = " OR ")), additionalParams, collapse = "")
tweets_list <- searchTwitter(searchString, n=20, lang = "en", resultType = 'recent')
str_replace_all(tweets_list, "[\r\n]" , "")
tweets.df <- twListToDF(tweets_list)
todayDate <- Sys.Date()
tweetArchive <- paste("BikeShareTweets ", todayDate, ".csv", sep ="")
write.csv2(tweets.df, file = tweetArchive)
Run Code Online (Sandbox Code Playgroud)
下面的文本是导致该问题的推文示例。
"TransitNinja205: 0.01% of the …Run Code Online (Sandbox Code Playgroud)