R使用带有通配符的gsub删除部分字符串

Question

我有一个数据框，我想对值做两件事：

1. 添加一个空格作为千​​位分隔符
2. 删除小数点后的尾零

我设法分别做这两件事，但我似乎无法将两者结合起来。

为了删除我使用的尾随零：

cat <- c("A", "B", "C")
value <- c(1234.5, 1, 12.34)
df <- data.frame(cat, value)

df$value2 <- gsub("\\.00$","",df$value)
df
  cat   value value2
1   A 1234.50 1234.5
2   B    1.00      1
3   C   12.34  12.34

为了添加我使用的千位分隔符：

df$value2 <- format(df$value, big.mark=" ")
df
  cat   value   value2
1   A 1234.50 1 234.50
2   B    1.00     1.00
3   C   12.34    12.34

现在我希望将两者结合起来，但如果我使用以下代码进行此操作：

df$value2 <- gsub("\\.00$","",format(df$value, big.mark=" "))
df
  cat   value   value2
1   A 1234.50 1 234.50
2   B    1.00        1
3   C   12.34    12.34

仅在以两个零结尾的情况下删除尾随零。我尝试添加|\\..*0$，以便它还可以查看前面带有数字的零，但这会删除小数点后的数字，这不是我想要的。

Answer 1

您可以使用参数drop0trailing

format(value, big.mark=" ", drop0trailing=TRUE)
# [1] "1 234.5" "   1"    "  12.34"

也适用于formatC，不同之处在于默认情况下您没有前导空格：

formatC(value, big.mark=" ", drop0trailing=TRUE)
# [1] "1 234" "1"     "12.34"

或者使用format 的trim 参数：

format(value, big.mark=" ", drop0trailing=TRUE, trim = TRUE)
# [1] "1 234.5" "1"       "12.34"  

Answer 2

这可行，但您的数字将被转换为字符串/字符！

df$value2 <- gsub("0+$|\\.0+$","", as.character( format(df$value, big.mark=" ")))

#   cat   value   value2
# 1   A 1234.50  1 234.5
# 2   B    1.00        1
# 3   C   12.34    12.34