R中数字的逗号分隔符？

Question

R中是否有一个函数显示用逗号分隔的大数字？

即从... 1000000到1,000,000.

Answer 1

您可以尝试format或prettyNum,但这两个函数都返回一个字符向量.我只用它来打印.

> prettyNum(12345.678,big.mark=",",scientific=FALSE)
[1] "12,345.68"
> format(12345.678,big.mark=",",scientific=FALSE)
[1] "12,345.68"

编辑:正如Michael Chirico在评论中所说:

请注意,这些具有用空格填充打印字符串的副作用,例如:

> prettyNum(c(123,1234),big.mark=",")
[1] "  123" "1,234"

添加trim=TRUE到format或preserve.width="none"以prettyNum防止这种情况:

> prettyNum(c(123,1234),big.mark=",", preserve.width="none")
[1] "123"   "1,234"
> format(c(123,1234),big.mark=",", trim=TRUE)
[1] "123"   "1,234"

请注意,这些具有用空格填充打印字符串的副作用,例如:`prettyNum(c(123,1234),big.mark =",")`; 给出"123""1,234".将`trim = T`添加到`format`或`preserve.width ="none"`添加到`prettyNum`以防止这种情况发生. (5认同)

Answer 2

见?format:

> format(1e6, big.mark=",", scientific=FALSE)
[1] "1,000,000" 
>

Answer 3

发布的其他答案显然有效 - 但我一直都在使用

library(scales)    
comma_format()(1000000)

这是一个非常晚的响应,过去可能确实'comma_format`没有处理实数,但现在你可以执行以下操作:`scales :: comma_format(digits = 12)(1000000.789)`结果在下面:`"1,000,000.789"`. (3认同)
scales::comma(1000000) 似乎值得一提。 (2认同)

Answer 4

我认为 Joe 对 MatthewR 的评论提供了最好的答案，应该强调：

截至 2018 年 9 月，该scales包（的一部分Tidyverse）正是这样做的：

> library(scales)

> x <- 10e5
> comma(x)

[1] "1,000,000"

该scales包似乎与配合得很好ggplot2，允许精细控制数字在图形和图表中的显示方式。