R语言如何用正则表达式移除字符串中小数点后多余尾随零

不需要写一堆硬编码替换规则，一条通用正则就能适配所有尾随零清理场景。

首先复现你的测试向量：

v <- c("bla 500.00", "bla 1.20", "bla 1.10", "bla 2.34")

你最初写的mutate_all(funs(str_replace(., ".00", "")))有两个明显问题：一是只匹配了固定的.00字符串，覆盖不了其他小数位的尾随零场景；二是没有转义.——正则里.是匹配任意字符的通配符，不转义甚至可能出现误匹配。

通用替换方案 #

base R的gsub、stringr包的str_replace_all都能直接用，核心逻辑是匹配小数点后的连续尾随零，只保留有效数字部分：

# base R 直接处理向量
gsub("\\.(\\d*?)0+\\b", "\\1", v)

运行结果完全符合预期：

[1] "bla 500"  "bla 1.2"  "bla 1.1"  "bla 2.34"

如果要处理数据框的所有列，直接套用到mutate_all即可，不需要叠加多层替换：

library(dplyr)
df %>% 
  mutate_all(~gsub("\\.(\\d*?)0+\\b", "\\1", .))

正则逻辑拆解 #

各部分匹配规则如下：

• \\.：转义匹配小数点本身，避免.作为正则通配符产生误匹配
• (\\d*?)：非贪婪捕获小数点后的数字部分，遇到后续的尾随零就终止匹配
• 0+：匹配连续1个及以上的尾随零
• \\b：匹配数字单词边界，不管数字后是字符串结尾、空格还是中英文单位都能正常识别，比固定匹配行尾的$兼容性更强
• 替换值\\1：保留前面捕获到的有效小数部分，自动删除后续尾随零；如果捕获到的有效内容为空（对应小数点后全是零的场景，比如500.00），会连带小数点一起删除，完全匹配需求。

如果确定所有带小数的数字都在字符串片段末尾，把\\b换成$也可以实现相同效果。

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