r - gsub 删除不需要的精度

Question

任何人都可以通过 gsub 帮助实现以下目标在R？

input string: a=5.00,b=120,c=0.0003,d=0.02,e=5.20, f=1200.0,g=850.02
desired output: a=5,b=120,c=0.0003,d=0.02,e=5.2, f=1200, g=850.02

实际上，如果小数点后多余的 0 都是 0，则删除它们，如果存在实数，则不要删除。

Answer 1

我无法使用 gsub 使其正常工作单独，但我们可以尝试用逗号分割您的输入向量，然后使用 apply功能与 gsub :

x <- "a=5.00,b=120,c=0.0003,d=0.02,e=5.20, f=1200.0,g=850.02"
input <- sapply(unlist(strsplit(x, ",")), function(x) gsub("(?<=\\d)\\.$", "", gsub("(\\.[1-9]*)0+$", "\\1", x), perl=TRUE))
input <- paste(input, collapse=",")
input

[1] "a=5,b=120,c=0.0003,d=0.02,e=5.2, f=1200,g=850.02"

Demo

我实际上打了两次电话 gsub .如果数字有一个，第一个调用会去除小数点后出现的所有尾随零。第二次调用删除杂散的小数点，在像 5.00 这样的数字的情况下。 ，第一个电话会留下 5.而不是 5 ，后者是我们想要的。