Order stacked barplot by total number

Question

I was trying to order the bars in descending order (all the segments together) using reorder(). However, this seems not to work. How can I do this?

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()

Try `reorder(var, n, FUN = "sum")` with a capital letter FUN — stefan, Dec 13 '22 at 09:17

TarJae · Answer 1 · 2023-01-05T17:08:39.017

3

Another option is to use add_count together with fct_infreq():

library(tidyverse)

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

edited Jan 05 '23 at 17:08

answered Dec 13 '22 at 09:44

TarJae

72,363
6
19
66

1

TarJae, this is very nice - would you mind adding this to the linked duplicate thread and ping me please – tjebo Jan 05 '23 at 14:26
1

Do you mean as an answer to ? – TarJae Jan 05 '23 at 17:08

score 2 · Answer 2 · answered Dec 13 '22 at 09:15

2

It works if you use forcats::fct_reorder (part of the tidyverse) rather than reorder...

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

answered Dec 13 '22 at 09:15

Andrew Gustar

17,295
1
22
32

Order stacked barplot by total number

2 Answers2