如何在R中设置千位分隔符？

Question

有人知道如何在R中设置千位分隔符吗？
我想得到这样的输出：

123 425 231

要么

123.425.231

代替：

123425231

谢谢。

Answer 1

您可以尝试以下方法：

x <- 123456789101112 
formatC(x, format="f", big.mark = ",", digits=0)
#[1] "123,456,789,101,112"

当然，您可以根据需要更改“ big.mark”的条目，例如，将其替换为空格。

Answer 2

通过正则表达式，

gsub("(?!^)(?=(?:\\d{3})+$)", ".", '53332', perl=T)
# [1] "53.332"
gsub("(?!^)(?=(?:\\d{3})+$)", ".", '533382', perl=T)
# [1] "533.382"
gsub("(?!^)(?=(?:\\d{3})+$)", ".", '5333829', perl=T)
# [1] "5.333.829"
gsub("(?!^)(?=(?:\\d{3})+$)", ",", '5333829', perl=T)
# [1] "5,333,829"