在r中用引号和逗号连接字符串
Concatenate strings with quotes and commas in r
我遇到了以下问题。
我必须每天下载一个看起来像矩阵的文件。其中一列的格式为:
9766 JP 6367 JP 9983 JP 3407 JP 8309 JP 等等。列的class是factor.
我需要将此列转换为以下格式:
"9766 JP", "6367 JP", "9983 JP", "3407 JP", "8309 JP"
我尝试了该网站上建议的许多可能的解决方案,但 none 似乎对我有用。
谢谢
这个问题被否决了,因为不清楚你的源数据是什么样子的,或者它到底是什么,你想要实现什么。
也许这个例子会有所帮助
library(stringr)
s <- "9766 JP 6367 JP 9983 JP 3407 JP 8309 JP"
v <- str_extract_all(s, '[0-9]{4} [A-Z]{2}')[[1]]
r <- paste0(v, collapse='","', sep="")
sq <- paste0("'",paste0(v, sep="", collapse="','"),"'")
结果:
> v
[1] "9766 JP" "6367 JP" "9983 JP" "3407 JP" "8309 JP"
> r
[1] "9766 JP\",\"6367 JP\",\"9983 JP\",\"3407 JP\",\"8309 JP"
> sq
[1] "'9766 JP','6367 JP','9983 JP','3407 JP','8309 JP'"
我遇到了以下问题。
我必须每天下载一个看起来像矩阵的文件。其中一列的格式为: 9766 JP 6367 JP 9983 JP 3407 JP 8309 JP 等等。列的class是factor.
我需要将此列转换为以下格式:
"9766 JP", "6367 JP", "9983 JP", "3407 JP", "8309 JP"
我尝试了该网站上建议的许多可能的解决方案,但 none 似乎对我有用。
谢谢
这个问题被否决了,因为不清楚你的源数据是什么样子的,或者它到底是什么,你想要实现什么。
也许这个例子会有所帮助
library(stringr)
s <- "9766 JP 6367 JP 9983 JP 3407 JP 8309 JP"
v <- str_extract_all(s, '[0-9]{4} [A-Z]{2}')[[1]]
r <- paste0(v, collapse='","', sep="")
sq <- paste0("'",paste0(v, sep="", collapse="','"),"'")
结果:
> v
[1] "9766 JP" "6367 JP" "9983 JP" "3407 JP" "8309 JP"
> r
[1] "9766 JP\",\"6367 JP\",\"9983 JP\",\"3407 JP\",\"8309 JP"
> sq
[1] "'9766 JP','6367 JP','9983 JP','3407 JP','8309 JP'"