R：删除字母数字字符串末尾的零字

Question

我想删除字母数字字符串末尾的所有零。

dd<-data.frame(a = c("11234000", "000aa456000", "a2340", "00aa45000900")) 

应导致：

dd<-data.frame(a = c("11234", "000aa456", "a234", "00aa450009")) 

Answer 1

dd<-data.frame(a = c("11234000", "000aa456000", "a2340", "00aa45000900")) 
dd$a = gsub('0+$', '', dd$a) 

Answer 2

你可以试试这个。 $匹配字符串的末尾，并匹配多个零。

sub("0*$", "", dd$a) 
# [1] "11234"  "000aa456" "a234"  "00aa450009"