Question

我遇到了以下问题。

我必须每天下载一个看起来像矩阵的文件。其中一列的格式如下： 9766 JP 6367 JP 9983 JP 3407 JP 8309 JP等。该列的类是因子。

我需要以这种格式转换此列：

“9766 JP”，“6367 JP”，“9983 JP”，“3407 JP”，“8309 JP”

我在本网站上尝试了许多可能的解决方案，但似乎没有一个适用于我。

谢谢

Answer 1

这个问题被低估了，因为不清楚你的源数据是什么样的，或者它究竟是什么，你想要实现什么。

也许这个例子会有所帮助

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'"

用r中的引号和逗号连接字符串

1 个答案: