R语言：如何移除字符串中第二个及后续出现的小数点？

针对你需要保留第一个小数点、删除后续所有小数点的需求，这里提供两种可行的实现方式：

方法1：使用正则表达式替换（通用高效） #

利用正则的捕获组，保留第一个小数点及其之前的内容，将后续所有小数点替换为空：

# 基础R的gsub实现
x <- "3.99-0.13"
gsub("(^[^.]*\\.)|\\.", "\\1", x)
# 输出：[1] "3.99-013"

# stringr包的str_replace_all实现
library(stringr)
str_replace_all(x, "(^[^.]*\\.)|\\.", "\\1")
# 输出：[1] "3.99-013"

正则逻辑说明 #

• (^[^.]*\\.)：捕获从字符串开头到第一个小数点的所有内容（包含该小数点）
• |\\.：匹配除第一个之外的所有其他小数点
• 替换为\\1：匹配到捕获组内容时保留，匹配到后续小数点时替换为空

方法2：拆分拼接法（直观易懂） #

先按第一个小数点拆分字符串，再去掉第二部分的所有小数点，最后拼接起来：

library(stringr)
x <- "3.99-0.13"
# 拆分出第一个小数点前后的两部分
parts <- str_split_fixed(x, "\\.", 2)
# 拼接：第一部分 + 小数点 + 去掉所有小数点的第二部分
paste0(parts[1], ".", str_remove_all(parts[2], "\\."))
# 输出：[1] "3.99-013"

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