r - 使用枢轴函数时，我可以返回散布的值的总和吗？

Question

简而言之，以下返回 mtcars 中跨列扩展/旋转更宽的 cyl 计数:

> mtcars %>%
+   group_by(cyl) %>% 
+   summarise(Count = n()) %>% 
+   pivot_wider(names_from = cyl,
+               values_from = Count)
# A tibble: 1 x 3
    `4`   `6`   `8`
  <int> <int> <int>
1    11     7    14

我想保留 values_from 的值，我的示例中的 Count 字段，显示总数，以便在我的真实数据上一目了然，我可以看到为每一行分布的 Count 的总和。在这种情况下，这将是 11 + 7 + 14 = 32。

有没有办法可以强制 pivot_wider 维护 values_from 中的值并将它们分布在各列中？

编辑:
期望的输出:

# A tibble: 1 x 4
  Count   `4`   `6`   `8`
  <dbl> <int> <int> <int>
1    32    11     7    14

Answer 1

我们可以在 summarise 之后创建一列与 mutate然后做 pivot_wider

library(dplyr)
library(tidyr)
mtcars %>%
   group_by(cyl) %>%
   summarise(Count1 = n()) %>%
   mutate(Count = sum(Count1)) %>% 
   pivot_wider(names_from = cyl, values_from = Count1)
# A tibble: 1 x 4
#  Count   `4`   `6`   `8`
#  <int> <int> <int> <int>
#1    32    11     7    14