Reordering by x bar using one value of facet variable-CodePudding

For the dataset below, I'd like to customize my below plot by ordering states according to the total number of deaths experienced by age 65. I tried the below code.

The answer

CodePudding user response：

@RobertoT's answer discusses how to sort by Age and Dx. If you want to do that inline using dplyr::arrange and forcats::fct_inorder:

Reorder by Age and Dx

library(dplyr)
library(forcats)

CAPS_2019 %>% 
  arrange(desc(Age), desc(Dx)) %>% 
  ggplot(aes(x = fct_inorder(PopName), y = Dx, fill = factor(as.character(Age))))  
  geom_col(position = position_stack(reverse = TRUE))  
  facet_wrap("Age",scales="free_x") 
  theme_classic() 
  theme(strip.background = element_blank(), strip.text = element_blank()) 
  coord_flip() 
  labs(x = "State", y = "Deaths (%)", caption = (""), face = "bold", fill = "Age")

Reorder specifically by Dx at Age 65

If you want to specifically sort by Deaths for Age 65 (per the submission's question), you can do the following:

library(dplyr)
library(forcats)

CAPS_2019 %>% 
  group_by(PopName) %>%
  mutate(Dx_Age65 = Dx[Age == 65]) %>%
  ggplot(aes(x = fct_reorder(PopName, Dx_Age65, .desc = TRUE), y = Dx, fill = factor(as.character(Age))))  
  geom_col(position = position_stack(reverse = TRUE))  
  facet_wrap("Age",scales="free_x") 
  theme_classic() 
  theme(strip.background = element_blank(), strip.text = element_blank()) 
  coord_flip() 
  labs(x = "State", y = "Deaths (%)", caption = (""), face = "bold", fill = "Age")

CodePudding user response：

Popname is a factor with some levels that already sort the values. You have to rearrange them:

> CAPS_2019$PopName
[1] AK AK AK AL AL AL AR AR AR
Levels: AK AL AR

You can arrange the df by descending order in Age and Dx so the first values in Popname are sorted.

CAPS_2019 %>% arrange(desc(Age),desc(Dx))

# A tibble: 9 x 3
  Age      Dx PopName
  <fct> <dbl> <fct>  
1 65    21.9  AL     
2 65    21.3  AR     
3 65    17.2  AK     
4 50     8.86 AL     
5 50     7.89 AR     
6 50     7.85 AK     
7 30     3.06 AK     
8 30     2.85 AL     
9 30     2.52 AR

If you extract the unique values of Popname already sorted you can use them to reset the levels as you want. But, because you are using coord_flip() to flip the axis, the levels will be sorted the other way round in your plot. You can fix it in the ggplot code or just sort the levels in ascending order:

CAPS_2019 %>% arrange(desc(Age),Dx) %>% pull(PopName) %>% unique() %>% as.character()
[1] "AK" "AR" "AL"

Then, just edit the Popname column with the new levels:

CAPS_2019$PopName = factor(as.character(CAPS_2019$PopName), # the values
                           CAPS_2019 %>% arrange(desc(Age),Dx) %>% pull(PopName) %>% unique() %>% as.character()  # the levels sorted in ascending
)
[1] AK AK AK AL AL AL AR AR AR
Levels: AK AR AL

Next, plot the graph as it is. Changing the aesthetic for x-axis in ggplot() as: x = Popname

PS: Note if you don't flip the axis then the plot are sorted in ascending.