正则表达式删除R中的前导零，除非最终（或唯一）字符为零

gsub("(?<![0-9])0+", "", c("005", "0AB", "000", "0"), perl = TRUE)
#> [1] "5"  "AB" ""   ""
gsub("(^|[^0-9])0+", "\\1", c("005", "0AB", "000", "0"), perl = TRUE)
#> [1] "5"  "AB" ""   ""

上面的正则表达式来自此SO线程，它说明了如何从R中的字符串中删除所有前导零。由于此正则表达式，“ 000”和“ 0”都转换为“”。相反，我想从字符串中删除所有前导零，但最终字符恰好为零或唯一字符为零的情况除外。

"005" would become "5"
"0AB" would become "AB"
"000" would become "0"
"0"   would become "0"

另一个SO线程解释了如何做我想做的事情，但是我认为我在使用R中的解决方案时语法不是很正确。而且我不太了解下面第一和第二解决方案之间的区别（如果他们确实有效）。

gsub("s/^0*(\d+)$/$1/;", "", c("005", "0AB", "000", "0"), perl = TRUE)  # 1st solution
# Error: '\d' is an unrecognized escape in character string starting ""s/^0*(\d"
gsub("s/0*(\d+)/$1/;", "", c("005", "0AB", "000", "0"), perl = TRUE)    # 2nd solution
# Error: '\d' is an unrecognized escape in character string starting ""s/0*(\d"

R中正确的正则表达式是什么才能得到我想要的？

您可以从字符串开头删除所有零，但不能删除最后一个：

sub("^0+(?!$)", "", x, perl=TRUE)

参见regex演示。

细节

• ^ -字符串开头
• 0+ -一个或多个零
• (?!$) -如果当前位置的右侧紧跟着字符串位置的末尾，则负匹配将使匹配失败

参见R演示：

x <- c("005", "0AB", "000", "0")
sub("^0+(?!$)", "", x, perl=TRUE)
## => [1] "5"  "AB" "0"  "0"

我们可以使用正则表达式环顾四周添加一个条件，以检查一个或多个零（0+）之后是否存在任何非零值

sub("(?<![0-9])0+(?=[^0])", "", sub("^0+$", "0", v1), perl = TRUE)
#[1] "5"  "AB" "0"  "0" 

数据

v1 <- c("005", "0AB", "000", "0")

通过使用非单词边界。见在regex101这个演示或在tio.run [R演示。 \B

sub("^0+\\B", "", s)

这将不匹配最后一个零，因为它的右边没有单词character。

您可以使用交替方式来匹配捕获组中字符串中的所有零，或者匹配字符串开头的所有零。

在替换使用组1中。

^0*(0)$|^0+

正则表达式演示 | R演示

例如

sub("^0*(0)$|^0+", "\\1", c("005", "0AB", "000", "0"))

输出量

[1] "5"  "AB" "0"  "0"

甚至如WiktorStribiżew所说的那样更好，您可以在组中使用捕获单个0，然后重复组本身以捕获最后一个零实例。

^(0)+$|^0+

正则表达式演示

另一种regex选择：

^0*(.+)$

这是一个正则表达式演示。

base::sub在R中使用：

sub("^0*(.+)$", "\\1", c("005", "0AB", "000", "0"))  

 ## [1] "5"  "AB" "0"  "0" 

这是R演示。

或扩展@akrun的答案：

sub("^$", "0", sub("^0+", "", c("005", "0AB", "000", "0")), perl = TRUE)