拆分字符串中的第一个逗号

Question

如何使用 base 有效地将以下字符串拆分为第一个逗号？

x <- "I want to split here, though I don't want to split elsewhere, even here."
strsplit(x, ???)

期望的结果（2 个字符串）：

[[1]]
[1] "I want to split here"   "though I don't want to split elsewhere, even here."

提前谢谢你。

编辑：没想到要提这个。这需要能够泛化到一列，这样的字符串向量，如：

y <- c("Here's comma 1, and 2, see?", "Here's 2nd sting, like it, not a lot.")

结果可以是两列或一个长向量（我可以获取其他所有元素）或每个索引 ([[n]]) 有两个字符串的字符串列表。

对不够清晰表示歉意。

Answer 1

这就是我可能会做的事情。它可能看起来很 hacky，但由于 sub() 和 strsplit() 都是矢量化的，因此在处理多个字符串时它也可以顺利工作。

XX <- "SoMeThInGrIdIcUlOuS"
strsplit(sub(",\\s*", XX, x), XX)
# [[1]]
# [1] "I want to split here"                               
# [2] "though I don't want to split elsewhere, even here."

Answer 2

来自stringr 包：

str_split_fixed(x, pattern = ', ', n = 2)
#      [,1]                  
# [1,] "I want to split here"
#      [,2]                                                
# [1,] "though I don't want to split elsewhere, even here."

（这是一个一行两列的矩阵。）

Answer 3

这是另一种解决方案，使用正则表达式来捕获第一个逗号之前和之后的内容。

x <- "I want to split here, though I don't want to split elsewhere, even here."
library(stringr)
str_match(x, "^(.*?),\\s*(.*)")[,-1] 
# [1] "I want to split here"                              
# [2] "though I don't want to split elsewhere, even here."

Answer 4

library(stringr)

str_sub(x,end = min(str_locate(string=x, ',')-1))

这将得到你想要的第一个位。更改str_sub 中的start= 和end= 以获得您想要的任何其他内容。

如：

str_sub(x,start = min(str_locate(string=x, ',')+1 ))

并用str_trim 换行以去掉前导空格：

str_trim(str_sub(x,start = min(str_locate(string=x, ',')+1 )))

Answer 5

这可行，但我更喜欢 Josh Obrien：

y <- strsplit(x, ",")
sapply(y, function(x) data.frame(x= x[1], 
    z=paste(x[-1], collapse=",")), simplify=F))

受到追逐的回应的启发。

许多人给出了非基本方法，所以我想我会添加我通常使用的方法（尽管在这种情况下我需要一个基本响应）：

y <- c("Here's comma 1, and 2, see?", "Here's 2nd sting, like it, not a lot.")
library(reshape2)
colsplit(y, ",", c("x","z"))