Ordering bars according to the values of y

Question

Using the code below, I have created the below chart. To make it easier for people to see the pattern, I'd like to order states from left to right according to the y values (Dx) by age 65.

Thanks,

NM

Here is my data:

structure(list(Age = structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Label = c("30", "50", "65"), class = "factor"), Dx = c(3.057, 7.847, 17.157, 2.851, 8.861, 21.885, 2.521, 7.889, 21.328), PopName = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L), .Label = c("AK", "AL", "AR"), class = "factor")), row.names = c(NA, -9L), class = c("tbl_df", "tbl", "data.frame")) library(tidyverse)

library(tidyverse)

   CAPS_2019 %>% 
  group_by(Age, PopName) %>% 
  mutate(PopName1 = sum(Dx)) %>% 
  ungroup() %>% 
  ggplot(aes(x = fct_reorder(PopName, PopName1), y = Dx, fill = factor(as.character(Age)))) +
  geom_col(position = position_stack(reverse = TRUE)) +
  theme_classic()+
  coord_flip()+
  labs(x = "State", y = "Deaths (%)", caption = (""), face = "bold", fill = "Age")

Can't replicate your example because I don't have your data. But you can convert the variables that you map to x and y to factors whose levels correspond to the order that you want. Useful functions are `factor()` and `fct_reorder()`. — AlbertRapp, Jun 05 '22 at 18:50
structure(list(Age = structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Label = c("30", "50", "65"), class = "factor"), Dx = c(3.057, 7.847, 17.157, 2.851, 8.861, 21.885, 2.521, 7.889, 21.328), PopName = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L), .Label = c("AK", "AL", "AR"), class = "factor")), row.names = c(NA, -9L), class = c("tbl_df", "tbl", "data.frame")) — Nader Mehri, Jun 05 '22 at 20:23
Change the dataframe to `CAPS_2019_data` e.g. : `CAPS_2019_data %>% group_by(Age, P.......` — TarJae, Jun 06 '22 at 16:09

TarJae · Accepted Answer · 2022-06-06T16:15:23.180

1

Update 2 Try this in your new dataset Age and Popname are already factors. So maybe this should work as expected:

CAPS_2019_data %>% 
  group_by(Age, PopName) %>% 
  mutate(PopName1 = sum(Dx)) %>% 
  ungroup() %>% 
  ggplot(aes(x = reorder(PopName, PopName1), y = Dx, fill = Age)) +
  geom_col(position = position_stack(reverse = TRUE)) +
  theme_classic()+
  coord_flip()+
  labs(x = "State", y = "Deaths (%)", caption = (""), face = "bold", fill = "Age")

Update: data:

CAPS_2019 <- structure(list(Age = structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 
2L, 3L), .Label = c("30", "50", "65"), class = "factor"), Dx = c(3.057, 
7.847, 17.157, 2.851, 8.861, 21.885, 2.521, 7.889, 21.328), PopName = structure(c(1L, 
1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L), .Label = c("AK", "AL", "AR"), class = "factor")), row.names = c(NA, 
-9L), class = c("tbl_df", "tbl", "data.frame"))

To get the stacks ordered use position = position_stack(reverse = TRUE)
To order y axis do some preprocessing with group_by and sum and use fct_reorder from forcats package (it is in tidyverse)


library(tidyverse)

CAPS_2019 %>% 
  group_by(Age, PopName) %>% 
  mutate(PopName1 = sum(Dx)) %>% 
  ungroup() %>% 
  ggplot(aes(x = fct_reorder(PopName, PopName1), y = Dx, fill = factor(as.character(Age)))) +
  geom_col(position = position_stack(reverse = TRUE)) +
  theme_classic()+
  coord_flip()+
  labs(x = "State", y = "Deaths (%)", caption = (""), face = "bold", fill = "Age")

edited Jun 06 '22 at 16:15

answered Jun 05 '22 at 18:52

TarJae

72,363
6
19
66

Thanks! This is really helpful! How can I order states from top to bottom according to the y values (Dx) by age 65? – Nader Mehri Jun 05 '22 at 19:59
1

Please see my update! – TarJae Jun 06 '22 at 05:17
1

What was with the answer? – TarJae Jun 06 '22 at 15:56
Thanks but the code do not return the plot you shared! The code returns the original plot which states were ordered alphabetically! – Nader Mehri Jun 06 '22 at 15:57
Unbelievable I will check. – TarJae Jun 06 '22 at 15:58
The provided code with the provided data gives exactly the plot I have posted. Have you loaded the correct dataframe? and tidyverse? I updated the data I used! – TarJae Jun 06 '22 at 15:59
Yes! Everything is the same as yours but the plot! I am confused too! – Nader Mehri Jun 06 '22 at 16:02
You should load library(tidyverse) – TarJae Jun 06 '22 at 16:04
1

Yes I did! Please let me update my question so we can see what is going on! – Nader Mehri Jun 06 '22 at 16:06
You have a new dataframe name `CAPS_2019_data` – TarJae Jun 06 '22 at 16:08
I reupdated my question though It does not make any differences! – Nader Mehri Jun 06 '22 at 16:10
I have added a new possible solution in my answer. Please try and tell me. – TarJae Jun 06 '22 at 16:15
Thanks! I am getting the same plot I shared in my question! – Nader Mehri Jun 06 '22 at 16:21
Maybe close and restart R – TarJae Jun 06 '22 at 16:22
Still not working! – Nader Mehri Jun 06 '22 at 16:25
could you post your session info please – TarJae Jun 06 '22 at 16:34
Sure! How can I get my session info! – Nader Mehri Jun 06 '22 at 16:47
Just type `sessionInfo()` in the command line and hit enter. Copy the output and add it to your question as update. – TarJae Jun 06 '22 at 16:54
R version 4.1.3 (2022-03-10) Platform: x86_64-apple-darwin17.0 (64-bit) Running under: macOS Catalina 10.15.6 – Nader Mehri Jun 06 '22 at 16:56

Ordering bars according to the values of y

Here is my data:

1 Answers1