使用 gsub 删除多个逗号和尾随逗号

Question

这个问题与Removing multiple spaces and trailing spaces using gsub 非常相似，只是我想将其应用于逗号而不是空格。

例如，我想要一个函数TrimCommas 将x 变成y：

x <- c("a,b,c", ",a,b,,c", ",,,a,,,b,c,,,")
# y <- TrimCommas(x) # presumably
y <- c("a,b,c", "a,b,c", "a,b,c")

空格的解决方案是gsub("^ *|(?<= ) | *$", "", x, perl=T)，所以我希望比较这个解决方案也有助于解释一些正则表达式的基础知识。

Answer 1

解决方案是不是很相似？

x <- c("a,b,c", ",a,b,,c", ",,,a,,,b,c,,,")
gsub("^,*|(?<=,),|,*$", "", x, perl=T)
# [1] "a,b,c" "a,b,c" "a,b,c"

正则表达式^,*|(?<=,),|,*$分为三个部分：

• ^,* -- 匹配字符串开头的 0 个或多个逗号
• (?<=,), -- 这是一个positive lookbehind，看逗号后面是否有逗号，所以它匹配,,中的,
• ,*$ -- 匹配字符串末尾的 0 个或多个逗号

如您所见，以上所有内容均被替换。

您可以使用此函数将其泛化为任何字符（" "、"," 等）：

TrimMult <- function(x, char=" ") {
  return(gsub(paste0("^", char, "*|(?<=", char, ")", char, "|", char, "*$"),
              "", x, perl=T))
}