r - 按总数排序堆积条形图

Question

这个问题已经有答案了:

Order Stacked Bar Graph by sum / total of all subgroups (2 个回答)

已关闭 11 个月前。

我试图使用 reorder() 按降序排列条形(所有段在一起)。然而，这似乎不起作用。我怎样才能做到这一点？

library(tidyverse)

# Sample data frame
df <- data.frame(var = sample(paste0("x", 1:10), size = 100, replace = TRUE),
                 var2 = sample(c("A", "B", "C", "D"), size = 100, replace = TRUE))

# Stacked barplot
df %>% group_by(var) %>%
  count(var2) %>%
  ggplot(aes(x = reorder(var, n, fun = "sum"), y = n, fill = var2)) +  
    geom_col()

Answer 1

另一种选择是将 add_count 与 fct_infreq() 一起使用:

library(tidyverse)

df %>% 
  add_count(var) %>% 
  ggplot(aes(x = fct_infreq(var), y = n, fill = var2)) +  
  geom_col()