Question

我正在使用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)

以下文字是引发问题的推文示例。

"TransitNinja205: 0.01% of the budget for 5-borough @CitiBikeNYC,\nand 0.2% for #FairFares. @NYCmayor @NYCmayorsOffice #progressive"

为什么我的str_replace_all不从文本中删除\ n？

Answer 1

stringr::str_replace_all有效，你只是忽略了结果。解决它：

tweets_list = str_replace_all(tweets_list, "[\r\n]" , "")

Answer 2

stringr::str_remove_all也会为您做到这一点。

tweets_list = str_remove_all(tweets_list, "[\r\n]")

如何从字符串中删除换行符？

2 个答案: