Source of many frustrations when using fct_inorder

example_fct_inorder_frustrations.R

library(tidyverse)

example1 <- tibble(size = c("A", "A", "C", "C", "B", "B"),
                   re_order_var = c(1,1,2,2,3,3))

# works as expected:
example1 %>% 
  arrange(re_order_var) %>% 
  mutate(size = fct_inorder(size)) %>% 
  ggplot(aes(size, y = 1)) + 
  geom_col()

# But, this doesn't actually yield the desired outcome due to the grouping
example1 %>% 
  group_by(size) %>% 
  arrange(re_order_var) %>% 
  mutate(size = fct_inorder(size)) %>% 
  ggplot(aes(size, y = 1)) + 
  geom_col()