为什么这两个值都显示为 100%？

Question

我正在尝试制作饼图，第一步是计算每个部分的实际百分比份额。我认为我应该能够使用mutate，但它给了我 100% 的全面支持：

 starwars %>%
  group_by(gender) %>%
  count() %>%
  mutate(percent = n / sum(n) * 100) 

我希望看到计算出的百分比，如下所示：

gender          n     percent
female          19      22
hermaphrodite   1       1
male            62      71
none            2       2
NA              3       3 

但每一行似乎都是 100%：

gender          n     percent
female          19      100
hermaphrodite   1       100
male            62      100
none            2       100
NA              3       100

我需要在此处更改什么以便获得 n 总和的百分比？

Answer 1

您需要先取消分组，否则您正在执行 sum(n) 分组。

starwars %>%
  group_by(gender) %>%
  count() %>% ungroup() %>%
  mutate(percent = n / sum(n) * 100) 

如 cmets 中所述，另一种结构是：

starwars %>% 
  group_by(gender) %>% 
  summarise(n=n(), percent = n / nrow(.) * 100)  

严格来说，mutate 会将百分比添加到原始 tibble 的每一行。 summarise 给出所要求的摘要。