使用tidyverse的“汇总功能”后如何在汇总结果中添加逗号

Question

我使用下面的代码对一列求和。

我有正确的数字，但没有正确格式化为数字。我也有需要将其格式化为货币的情况。这是我尝试过的代码

Result %>% 
  summarise(Pieces_Mailed = sum(Households, na.rm = TRUE)) %>% 
  comma_format(digits = 12)

第一种情况：它给了我520698。如何获取它以返回520,698？
第二种情况：它给了我46553549。我如何得到它来代替$ 4,655,354？

谢谢。

Answer 1

comma_format仅返回,

library(dplyr)
library(scales)
library(tibble)
tibble(col = sample(1e5, 10, replace = FALSE)) %>%
       summarise(col = sum(col)) %>% 
       mutate(col = comma_format(accuracy = 12)(col))
# A tibble: 1 x 1
#  col    
#  <chr>  
#1 481,296

要添加$，我们需要dollar_format

tibble(col = sample(1e5, 10, replace = FALSE)) %>%
       summarise(col = sum(col)) %>% 
       mutate(col = dollar_format(accuracy = 12)(col))
# A tibble: 1 x 1
#  col     
#  <chr>   
#1 $445,896