r - 如何使用 tidyverse 函数计算 tibble 上的行和列总计

Question

给定一个 n × m 的带有数值的小标题。如何计算小标题的行和列总计。

这是带有示例标题的表示:

library(tidyverse)
df <- tibble(names=c('a','b','c','d','e'),x = 1:5, y =5:1, z=2:6)
df
#> # A tibble: 5 x 4
#>   names     x     y     z
#>   <chr> <int> <int> <int>
#> 1 a         1     5     2
#> 2 b         2     4     3
#> 3 c         3     3     4
#> 4 d         4     2     5
#> 5 e         5     1     6

^{由reprex package于2020年6月9日创建(v0.3.0)}

鉴于此 tibble，我希望有效地使用 tidyverse 函数来实现以下输出:

我已经能够通过聚集、传播和连接的组合来完成此任务，但我对 R 和 tidyverse 仍然相当陌生，并且想看看是否有更有效的方法来完成此任务。

Answer 1

janitor 库有 adorn_totals 函数:

library(janitor)
df %>%
  adorn_totals(name = 'col_sum') %>%
  adorn_totals(name = 'row_sum', where = 'col')


#   names  x  y  z row_sum
#       a  1  5  2       8
#       b  2  4  3       9
#       c  3  3  4      10
#       d  4  2  5      11
#       e  5  1  6      12
# col_sum 15 15 20      50