ggplot2：按總數排序堆疊條形圖

Question

我試圖使用 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()

Answer 2

如果您使用forcats::fct_reorder （tidyverse 的一部分）而不是reorder ...

df %>% group_by(var) %>%
  count(var2) %>%
  ggplot(aes(x = fct_reorder(var, n, .fun = sum), y = n, fill = var2)) +  
  geom_col()