从字符串中删除第二个逗号后的所有内容[重复]

Question

这个问题在这里已经有了答案：

如何删除R中第n个分隔符之后的所有内容？ (2 个回答)

去年关闭。

我想删除字符串中第二个逗号之后的任何内容 - 包括第二个逗号 -。 下面是一个例子：

x <- 'Day,Bobby,Jean,Gav'
gsub("(.*),.*", "\\1", x)

它给出：

[1] "Day, Bobby, Jean"

虽然我想要：

[1] "Day, Bobby

不管x中可能存在的名称数量

Answer 1

用

> x <- 'Day, Bobby, Jean, Gav'
> sub("^([^,]*,[^,]*),.*", "\\1", x)
[1] "Day, Bobby"

^([^,]*,[^,]*),.*模式匹配

• ^ - 字符串的开始
• ([^,]*,[^,]*) - 第 1 组：0+ 非逗号、逗号和 0+ 非逗号
• ,.* - 一个逗号和字符串的其余部分。

替换模式中的\\1将在结果中保留 Group 1 值。

Answer 2

我们也可以使用strsplit然后paste

toString(head(strsplit(x, ",")[[1]], 2))
#[1] "Day, Bobby"