dplyr::summarise() 函数中的自动舍入

Question

我想知道是否有任何简单的方法来指定summarisein报告的位数dplyr，理想情况下使用本机dplyr或其他tidyverse函数？

这是一些玩具数据

library(dplyr)

df <- data.frame(group = rep(letters[1:2], each = 10, length.out = 40),
                 large = rnorm(40, 100, 15),
                 small = rnorm(40, 0.5, 0.02))

如果我们然后总结通过

df %>% group_by(group) %>% summarise(mL = mean(large), mS = mean(small)) 

我们得到

#   group    mL    mS
#   <fct> <dbl> <dbl>
# 1 a     104.  0.496
# 2 b      97.6 0.506

请注意，在没有指定任何舍入的情况下，具有较高平均值的变量已四舍五入到小数点后 1 位，而具有较小平均值的变量已四舍五入为 3。

现在是否希望将具有较大平均值的变量也报告到小数点后 3 位？如果我们包含一个像这样舍入的命令

df %>% group_by(group) %>% summarise(mL = round(mean(large),3), mS = mean(small))

输出没有变化

#   group    mL    mS
#   <fct> <dbl> <dbl>
# 1 a     104.  0.496
# 2 b      97.6 0.506

只有使用了format()函数才能得到我们所追求的

df %>% group_by(group) %>% summarise(mL = format(round(mean(large),3),3), mS = mean(small))

  group      mL    mS
  <fct> <chr>   <dbl>
1 a     103.888 0.496
2 b     97.626  0.506

有没有更简单的方法来做到这一点？理想情况下使用某种 tidyverse 功能。

Answer 1

这与 tibbles 的打印方式有关。数据框中的实际数字仍然具有所有小数位，它们只是在打印小标题时未显示。

您可以使用as.data.frameorprint.data.frame()将显示更多小数点（取决于您的getOption("digits")）。您也可以更改 tibble 设置，但我的理解是这些设置始终基于有效数字而不是小数点（因此您的值 >100 的小数点将少于值 <100）请参阅 https://tibble.tidyverse.org/ tibble 打印选项的参考/formatting.html

所以

df %>% group_by(group) %>% summarise(mL = round(mean(large),3), mS = round(mean(small),3)) %>%
     as.data.frame()

将为您提供 3 个小数位的值，并且

df %>% group_by(group) %>% summarise(mL = mean(large), mS = mean(small))  %>%
     as.data.frame()

将显示到getOption("digits")小数位（我认为 7 是默认值）。

另请注意，如果您确实想对摘要中的多列执行相同的操作，summarise_at()可能会非常有帮助，例如

df %>% group_by(group) %>% summarise_at(c("large","small"), ~round(mean(.),3)) %>% 
    print.data.frame()