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

Question

我想删除字符串中第二个逗号之后的所有内容-包括第二个逗号-。这是一个例子：

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+个非逗号
• [,.*-逗号和字符串的其余部分。