Bri*_*Lee 4 twitter r str-replace
我正在使用 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 budget for 5-borough @CitiBikeNYC,\nand 0.2% for #FairFares. @NYCmayor @NYCmayorsOffice #progressive"
Run Code Online (Sandbox Code Playgroud)
为什么我的 str_replace_all 没有从文本中删除 \n ?
stringr::str_replace_all有效,你\xe2\x80\x99只是忽略结果。要解决这个问题:
tweets_list = str_replace_all(tweets_list, "[\\r\\n]" , "")\nRun Code Online (Sandbox Code Playgroud)\n
| 归档时间: |
|
| 查看次数: |
5498 次 |
| 最近记录: |