在R中删除字符串除第一个点外的其余点及正则报错解决方案

R 中调用 perl=TRUE 时使用的 PCRE 正则引擎不支持任意长度的后视断言，你写的两个正则表达式中的 (?<=\\..*) 和 (?<!^[^.]*) 都属于长度可变的后视规则，因此会触发正则格式无效的报错。部分在线正则测试工具使用的是 Python、JavaScript 等支持可变长度后视的引擎，所以相同规则可以正常运行。

方案1：正则捕获分组替换（推荐） #

用分组逻辑绕过可变长度后视的限制，匹配时仅保留第一个小数点，删除其余所有小数点：

# 单字符串测试
gsub("(^[^.]*\\.)|\\.", "\\1", "59.34343.23", perl = TRUE)
# 输出：[1] "59.3434323"

# 批量测试多场景用例
test_str <- c("59.34343.23", "12.34.56.78", "123", "123.", ".456")
gsub("(^[^.]*\\.)|\\.", "\\1", test_str, perl = TRUE)
# 输出：[1] "59.3434323" "12.345678"  "123"        "123."       ".456"

逻辑说明：正则匹配两种内容，一是字符串开头到第一个小数点的部分（捕获到分组1），二是其余所有小数点；替换时仅保留分组1的内容，其余匹配到的小数点会被直接删除。

方案2：字符串拆分拼接（易读性更高） #

如果不想写复杂正则，可以按小数点拆分字符串后手动拼接，逻辑更直观：

fix_multi_dot <- function(str_vec) {
  sapply(strsplit(str_vec, "\\."), function(parts) {
    if (length(parts) <= 1) return(parts)
    paste0(parts[1], ".", paste(parts[-1], collapse = ""))
  })
}

# 测试
fix_multi_dot(c("59.34343.23", "1.2.3.4.5"))
# 输出：[1] "59.3434323" "1.2345"

内容的提问来源于stack exchange，提问作者user2246905