Home > Net >  How to order alluvials stratums in a custom way
How to order alluvials stratums in a custom way

Time:04-05

I made this alluvial:

enter image description here

As you can imagine, I would like the 9-16 to be between the 1-8 and the 17-24.

This is my code:

ggplot(data = werkuren_thuis_freq,
       aes(y = Freq, 
           axis1 = s2_werkuren_thuis_voor, 
           axis2 = s2_werkuren_thuis_eerstemaand, 
           axis3 = s2_werkuren_thuis_nu,
           axis4 = s2_werkuren_thuis_na))  
  geom_alluvium(aes(fill = s2_werkuren_thuis_voor),
                width = 1/12)  
  geom_stratum(width = 1/12, fill = "black", color = "grey")  
  geom_text(x = 0.95, stat = "stratum", 
            aes(label = s2_werkuren_thuis_voor),
            color = 'black', hjust = 1)  
  geom_text(x = 4.05, stat = "stratum", 
            aes(label = s2_werkuren_thuis_na),
            color = 'black', hjust = 0)  
  scale_x_discrete(limits = c("Before", "First month", "November 2021", "After"), expand = c(.2, .2))  
  ggtitle("Working from home hours in four time periods")  
  theme_void()  
  theme(legend.position = 'none')

Data is:

structure(list(s2_werkuren_thuis_voor = c("0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "40 ", 
"40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "Weet niet", 
"Weet niet", "Weet niet", "Weet niet"), s2_werkuren_thuis_eerstemaand = c("0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
"0", "0", "0", "0", "0", "0", "0", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", 
"40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", 
"40 ", "40 ", "Weet niet", "Weet niet", "Weet niet", "Weet niet", 
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "25-32", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", 
"40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", 
"40 ", "40 ", "Weet niet", "0", "0", "0", "0", "0", "1-8", "1-8", 
"1-8", "1-8", "1-8", "1-8", "1-8", "1-8", "9-16", "9-16", "9-16", 
"9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", "9-16", 
"9-16", "9-16", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "25-32", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "40 ", 
"40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "40 ", 
"40 ", "40 ", "0", "0", "0", "0", "1-8", "1-8", "1-8", "1-8", 
"1-8", "9-16", "9-16", "9-16", "9-16", "17-24", "17-24", "17-24", 
"17-24", "17-24", "17-24", "17-24", "17-24", "17-24", "17-24", 
"17-24", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "Weet niet", "1-8", 
"9-16", "9-16", "17-24", "17-24", "17-24", "25-32", "25-32", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "25-32", "33-40", "33-40", "40 ", "40 ", "40 ", "40 ", 
"40 ", "0", "1-8", "9-16", "17-24", "17-24", "17-24", "25-32", 
"25-32", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "33-40", 
"33-40", "33-40", "33-40", "33-40", "40 ", "40 ", "40 ", "40 ", 
"40 ", "0", "17-24", "25-32", "40 ", "40 ", "40 ", "40 ", "40 ", 
"40 ", "0", "Weet niet", "Weet niet", "Weet niet"), s2_werkuren_thuis_nu = c("0", 
"0", "0", "0", "0", "0", "0", "1-8", "1-8", "1-8", "1-8", "9-16", 
"9-16", "9-16", "9-16", "17-24", "17-24", "17-24", "17-24", "17-24", 
"25-32", "25-32", "25-32", "25-32", "25-32", "25-32", "25-32", 
"33-40", "33-40", "33-40", "33-40", "40 ", "40 ", "Weet niet", 
"0", "1-8", "1-8", "1-8", "9-16", "9-16", "9-16", "17-24", "17-24", 
"17-24", "25-32", "25-32", "33-40", "0", "0", "0", "1-8", "1-8", 
"1-8", "1-8", "9-16", "9-16", "17-24", "17-24", "17-24", "17-24", 
"17-24", "25-32", "25-32", "25-32", "40 ", "0", "0", "0", "1-8", 
"1-8", "1-8", "9-16", "9-16", "9-16", "9-16", "9-16", "17-24", 
"17-24", "17-24", "25-32", "25-32", "25-32", "33-40", "40 ", 
"40 ", "0", "0", "0", "1-8", "1-8", "1-8", "9-16", "9-16", "9-16", 
"9-16", "17-24", "17-24", "17-24", "17-24", "25-32", "25-32", 
"25-32", "25-32", "33-40", "33-40", "33-40", "0", "0", "0", "1-8", 
"1-8", "1-8", "9-16", "9-16", "9-16", "17-24", "17-24", "17-24", 
"17-24", "17-24", "25-32", "25-32", "25-32", "25-32", "25-32", 
"33-40", "33-40", "33-40", "33-40", "33-40", "33-40", "40 ", 
"40 ", "40 ", "0", "1-8", "9-16", "17-24", "17-24", "25-32", 
"25-32", "25-32", "33-40", "33-40", "33-40", "33-40", "33-40", 
"40 ", "40 ", "40 ", "40 ", "40 ", "40 ", "9-16", "17-24", "33-40", 
"Weet niet", "0", "0", "0", "1-8", "9-16", "17-24", "17-24", 
"17-24", "25-32", "33-40", "0", "0", "1-8", "1-8", "1-8", "9-16", 
"9-16", "9-16", "17-24", "17-24", "17-24", "25-32", "25-32", 
"25-32", "33-40", "33-40", "33-40", "40 ", "0", "0", "1-8", "1-8", 
"1-8", "9-16", "9-16", "17-24", "17-24", "17-24", "25-32", "25-32", 
"33-40", "33-40", "33-40", "0", "0", "1-8", "1-8", "1-8", "1-8", 
"9-16", "9-16", "9-16", "17-24", "17-24", "17-24", "25-32", "25-32", 
"25-32", "25-32", "33-40", "33-40", "33-40", "40 ", "40 ", "0", 
"1-8", "1-8", "1-8", "9-16", "9-16", "9-16", "9-16", "17-24", 
"17-24", "17-24", "25-32", "25-32", "25-32", "25-32", "25-32", 
"33-40", "33-40", "33-40", "33-40", "33-40", "40 ", "40 ", "Weet niet", 
"0", "0", "0", "1-8", "1-8", "9-16", "9-16", "17-24", "17-24", 
"17-24", "17-24", "25-32", "25-32", "25-32", "25-32", "33-40", 
"33-40", "33-40", "33-40", "33-40", "33-40", "40 ", "40 ", "0", 
"0", "1-8", "1-8", "9-16", "9-16", "17-24", "17-24", "25-32", 
"25-32", "25-32", "33-40", "33-40", "33-40", "40 ", "40 ", "40 ", 
"40 ", "33-40", "0", "1-8", "9-16", "25-32", "40 ", "0", "1-8", 
"9-16", "9-16", "25-32", "25-32", "33-40", "40 ", "0", "1-8", 
"1-8", "1-8", "9-16", "17-24", "17-24", "17-24", "25-32", "33-40", 
"33-40", "33-40", "40 ", "0", "0", "9-16", "9-16", "9-16", "17-24", 
"17-24", "17-24", "40 ", "40 ", "0", "1-8", "9-16", "9-16", "9-16", 
"17-24", "17-24", "25-32", "25-32", "25-32", "33-40", "0", "1-8", 
"1-8", "9-16", "17-24", "17-24", "17-24", "17-24", "17-24", "25-32", 
"25-32", "25-32", "25-32", "33-40", "33-40", "33-40", "33-40", 
"33-40", "0", "1-8", "9-16", "9-16", "17-24", "17-24", "25-32", 
"25-32", "33-40", "33-40", "40 ", "40 ", "0", "0", "1-8", "9-16", 
"1-8", "9-16", "17-24", "17-24", "25-32", "1-8", "9-16", "17-24", 
"33-40", "0", "0", "1-8", "1-8", "9-16", "9-16", "17-24", "17-24", 
"25-32", "25-32", "33-40", "0", "9-16", "17-24", "25-32", "33-40", 
"40 ", "9-16", "17-24", "17-24", "17-24", "17-24", "25-32", "25-32", 
"25-32", "33-40", "33-40", "33-40", "33-40", "40 ", "40 ", "17-24", 
"17-24", "25-32", "25-32", "33-40", "40 ", "33-40", "1-8", "17-24", 
"25-32", "17-24", "25-32", "25-32", "0", "9-16", "9-16", "17-24", 
"17-24", "25-32", "25-32", "25-32", "33-40", "33-40", "33-40", 
"33-40", "33-40", "17-24", "25-32", "33-40", "40 ", "40 ", "33-40", 
"1-8", "9-16", "25-32", "25-32", "33-40", "25-32", "33-40", "9-16", 
"9-16", "17-24", "25-32", "25-32", "25-32", "25-32", "25-32", 
"25-32", "33-40", "33-40", "33-40", "33-40", "40 ", "40 ", "40 ", 
"Weet niet", "0", "33-40", "40 ", "40 ", "40 ", "9-16", "17-24", 
"40 ", "0", "0", "17-24", "25-32", "33-40", "40 ", "0", "17-24", 
"Weet niet", "Weet niet"), s2_werkuren_thuis_na = c("0", "1-8", 
"9-16", "17-24", "25-32", "33-40", "Weet niet", "0", "1-8", "9-16", 
"Weet niet", "0", "1-8", "9-16", "17-24", "0", "1-8", "9-16", 
"17-24", "25-32", "0", "1-8", "9-16", "17-24", "25-32", "33-40", 
"Weet niet", "9-16", "17-24", "25-32", "33-40", "17-24", "40 ", 
"0", "0", "0", "1-8", "Weet niet", "1-8", "17-24", "33-40", "0", 
"9-16", "33-40", "0", "17-24", "9-16", "0", "1-8", "9-16", "0", 
"1-8", "25-32", "Weet niet", "1-8", "9-16", "0", "1-8", "9-16", 
"17-24", "25-32", "1-8", "9-16", "17-24", "17-24", "0", "1-8", 
"9-16", "0", "1-8", "17-24", "0", "1-8", "9-16", "25-32", "Weet niet", 
"1-8", "9-16", "17-24", "9-16", "17-24", "25-32", "25-32", "17-24", 
"40 ", "0", "9-16", "17-24", "0", "1-8", "9-16", "1-8", "9-16", 
"17-24", "25-32", "1-8", "9-16", "17-24", "Weet niet", "1-8", 
"9-16", "17-24", "25-32", "9-16", "17-24", "33-40", "0", "17-24", 
"Weet niet", "0", "1-8", "9-16", "0", "1-8", "9-16", "0", "9-16", 
"17-24", "25-32", "Weet niet", "0", "1-8", "9-16", "17-24", "25-32", 
"0", "1-8", "9-16", "17-24", "25-32", "33-40", "17-24", "25-32", 
"33-40", "0", "1-8", "9-16", "9-16", "17-24", "9-16", "17-24", 
"25-32", "1-8", "9-16", "17-24", "25-32", "33-40", "1-8", "17-24", 
"25-32", "33-40", "40 ", "Weet niet", "9-16", "17-24", "17-24", 
"Weet niet", "0", "1-8", "9-16", "1-8", "1-8", "1-8", "9-16", 
"17-24", "25-32", "33-40", "0", "1-8", "1-8", "9-16", "Weet niet", 
"1-8", "9-16", "Weet niet", "9-16", "17-24", "25-32", "9-16", 
"17-24", "Weet niet", "0", "1-8", "9-16", "40 ", "0", "17-24", 
"0", "1-8", "9-16", "1-8", "9-16", "1-8", "9-16", "17-24", "1-8", 
"9-16", "1-8", "9-16", "17-24", "0", "9-16", "0", "1-8", "17-24", 
"25-32", "1-8", "9-16", "17-24", "1-8", "9-16", "17-24", "1-8", 
"9-16", "17-24", "25-32", "9-16", "17-24", "25-32", "1-8", "25-32", 
"0", "0", "1-8", "25-32", "1-8", "9-16", "17-24", "Weet niet", 
"1-8", "9-16", "17-24", "1-8", "9-16", "17-24", "25-32", "33-40", 
"1-8", "17-24", "25-32", "33-40", "Weet niet", "17-24", "25-32", 
"17-24", "0", "1-8", "33-40", "0", "1-8", "1-8", "9-16", "1-8", 
"9-16", "17-24", "25-32", "1-8", "9-16", "17-24", "25-32", "1-8", 
"9-16", "17-24", "25-32", "33-40", "Weet niet", "1-8", "17-24", 
"0", "40 ", "0", "1-8", "1-8", "9-16", "9-16", "17-24", "1-8", 
"9-16", "25-32", "9-16", "17-24", "25-32", "9-16", "17-24", "25-32", 
"40 ", "17-24", "0", "9-16", "9-16", "17-24", "1-8", "0", "9-16", 
"1-8", "9-16", "9-16", "17-24", "17-24", "17-24", "9-16", "1-8", 
"9-16", "Weet niet", "9-16", "9-16", "17-24", "25-32", "17-24", 
"9-16", "17-24", "25-32", "25-32", "0", "9-16", "1-8", "9-16", 
"17-24", "9-16", "17-24", "Weet niet", "25-32", "33-40", "33-40", 
"1-8", "9-16", "17-24", "Weet niet", "9-16", "17-24", "9-16", 
"17-24", "25-32", "17-24", "0", "0", "1-8", "9-16", "1-8", "9-16", 
"17-24", "33-40", "Weet niet", "1-8", "9-16", "17-24", "25-32", 
"1-8", "9-16", "17-24", "25-32", "33-40", "9-16", "25-32", "1-8", 
"9-16", "9-16", "17-24", "9-16", "25-32", "17-24", "25-32", "9-16", 
"25-32", "0", "Weet niet", "9-16", "17-24", "1-8", "33-40", "9-16", 
"17-24", "17-24", "9-16", "9-16", "9-16", "9-16", "0", "9-16", 
"1-8", "17-24", "1-8", "9-16", "17-24", "25-32", "25-32", "33-40", 
"17-24", "0", "1-8", "17-24", "9-16", "25-32", "33-40", "9-16", 
"0", "9-16", "17-24", "33-40", "17-24", "25-32", "Weet niet", 
"9-16", "17-24", "25-32", "33-40", "17-24", "40 ", "0", "17-24", 
"17-24", "25-32", "40 ", "25-32", "25-32", "1-8", "25-32", "25-32", 
"17-24", "9-16", "25-32", "0", "1-8", "25-32", "17-24", "25-32", 
"9-16", "17-24", "25-32", "25-32", "33-40", "40 ", "0", "25-32", 
"17-24", "17-24", "25-32", "25-32", "33-40", "17-24", "1-8", 
"33-40", "25-32", "33-40", "17-24", "25-32", "33-40", "1-8", 
"17-24", "9-16", "1-8", "9-16", "17-24", "25-32", "33-40", "Weet niet", 
"1-8", "17-24", "25-32", "33-40", "17-24", "33-40", "40 ", "Weet niet", 
"0", "25-32", "25-32", "33-40", "40 ", "17-24", "25-32", "40 ", 
"0", "17-24", "1-8", "17-24", "40 ", "40 ", "0", "Weet niet", 
"0", "Weet niet"), Freq = c(598, 10, 5, 3, 1, 2, 11, 16, 13, 
2, 1, 1, 6, 10, 1, 1, 2, 8, 4, 1, 1, 3, 2, 5, 1, 2, 1, 1, 1, 
3, 4, 1, 2, 2, 21, 12, 9, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 13, 2, 
2, 5, 7, 1, 1, 3, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 17, 1, 1, 6, 
4, 1, 3, 3, 1, 1, 1, 2, 6, 5, 1, 2, 1, 1, 2, 1, 8, 1, 1, 3, 2, 
1, 1, 5, 1, 1, 1, 6, 5, 1, 1, 12, 9, 2, 3, 1, 1, 8, 1, 2, 4, 
5, 1, 1, 2, 4, 1, 4, 6, 3, 1, 2, 2, 5, 7, 7, 3, 2, 7, 25, 7, 
1, 1, 1, 1, 2, 2, 1, 1, 2, 1, 4, 1, 1, 1, 3, 2, 1, 3, 3, 1, 1, 
1, 1, 1, 1, 1, 2, 6, 3, 1, 9, 1, 1, 1, 1, 1, 1, 11, 3, 72, 3, 
1, 6, 4, 1, 3, 1, 1, 1, 2, 2, 1, 1, 2, 1, 5, 1, 1, 9, 1, 8, 4, 
1, 2, 2, 1, 6, 1, 1, 1, 1, 1, 1, 11, 1, 1, 5, 7, 1, 3, 4, 1, 
1, 5, 3, 4, 1, 2, 1, 1, 1, 2, 1, 8, 1, 5, 3, 1, 1, 1, 4, 3, 2, 
11, 6, 3, 1, 1, 4, 4, 1, 1, 2, 1, 1, 2, 2, 1, 1, 6, 3, 5, 4, 
5, 5, 1, 2, 5, 10, 1, 1, 17, 23, 6, 5, 1, 1, 2, 3, 1, 1, 3, 1, 
2, 4, 1, 1, 1, 1, 4, 2, 2, 1, 12, 4, 1, 1, 1, 2, 2, 1, 1, 2, 
3, 1, 5, 1, 1, 1, 1, 1, 3, 3, 1, 22, 1, 2, 1, 2, 1, 1, 2, 1, 
1, 1, 1, 1, 2, 7, 2, 1, 1, 1, 1, 1, 2, 1, 1, 4, 3, 8, 7, 2, 2, 
2, 1, 3, 2, 1, 4, 1, 1, 1, 2, 1, 4, 1, 3, 1, 8, 1, 2, 2, 1, 1, 
2, 1, 1, 1, 1, 6, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 
1, 2, 1, 1, 1, 1, 1, 12, 1, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 1, 
2, 1, 1, 4, 1, 1, 1, 4, 3, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 2, 1, 
1, 1, 1, 4, 1, 1, 1, 1, 1, 3, 1, 17, 1, 2, 1, 1, 1, 1, 1, 2, 
1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 
2, 17, 1, 1, 1, 1, 1, 1, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 12, 
1, 1, 1, 18)), row.names = c(NA, -482L), class = c("tbl_df", 
"tbl", "data.frame"))

Says post is mostly code so I have to add more details: hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello

CodePudding user response:

You should reorder the labels of your columns. You can use the following code:

library(tidyverse)
library(ggalluvial)

werkuren_thuis_freq$s2_werkuren_thuis_voor <- factor(werkuren_thuis_freq$s2_werkuren_thuis_voor, levels = c("0", "1-8", "9-16", "17-24", "25-32", "33-40", "40 ", "Weet niet"))
werkuren_thuis_freq$s2_werkuren_thuis_eerstemaand <- factor(werkuren_thuis_freq$s2_werkuren_thuis_eerstemaand, levels = c("0", "1-8", "9-16", "17-24", "25-32", "33-40", "40 ", "Weet niet"))
werkuren_thuis_freq$s2_werkuren_thuis_nu <- factor(werkuren_thuis_freq$s2_werkuren_thuis_nu, levels = c("0", "1-8", "9-16", "17-24", "25-32", "33-40", "40 ", "Weet niet"))
werkuren_thuis_freq$s2_werkuren_thuis_na <- factor(werkuren_thuis_freq$s2_werkuren_thuis_na, levels = c("0", "1-8", "9-16", "17-24", "25-32", "33-40", "40 ", "Weet niet"))

ggplot(data = werkuren_thuis_freq,
       aes(y = Freq, 
           axis1 = s2_werkuren_thuis_voor, 
           axis2 = s2_werkuren_thuis_eerstemaand, 
           axis3 = s2_werkuren_thuis_nu,
           axis4 = s2_werkuren_thuis_na))  
  geom_alluvium(aes(fill = s2_werkuren_thuis_voor),
                width = 1/12)  
  geom_stratum(width = 1/12, fill = "black", color = "grey")  
  geom_text(x = 0.95, stat = "stratum", 
            aes(label = s2_werkuren_thuis_voor),
            color = 'black', hjust = 1)  
  geom_text(x = 4.05, stat = "stratum", 
            aes(label = s2_werkuren_thuis_na),
            color = 'black', hjust = 0)  
  scale_x_discrete(limits = c("Before", "First month", "November 2021", "After"), expand = c(.2, .2))  
  ggtitle("Working from home hours in four time periods")  
  theme_void()  
  theme(legend.position = 'none')

Output:

enter image description here

  • Related