Reordering Single Flipped Stacked Bar

Question

I have the following data set

example <- structure(list(selection_type = c("P", "G"), count = c(44L, 
102L), var = c("ST", "ST")), row.names = c(NA, 
-2L), class = c("tbl_df", "tbl", "data.frame"))

I produce the following plot:

ggplot(example) +
  geom_bar( aes(x = var, y = count, fill = selection_type), stat = "identity") +
  coord_flip()

Problem: I need it backwards. So "P" at the "right" of the stacked bar.

I have tried:

• Arrange on the dataframe and then plot, it doesn't work
• x = reorder(var,count) and x = reorder(var,-count) also doesn't work

Answer 1

You could use fct_rev from the forcats package

library(tidyverse)
example <- structure(list(selection_type = c("P", "G"), count = c(44L, 
                                                                  102L), var = c("ST", "ST")), row.names = c(NA, 
                                                                                                             -2L), class = c("tbl_df", "tbl", "data.frame"))

ggplot(example) +
  geom_bar( aes(x = var, y = count, fill = fct_rev(selection_type)), stat = "identity") +
  coord_flip()