ggplot меняет стек в барплоте

Question

У меня есть следующий график, на котором мне нужно получить синюю полосу (провал) наверх.Я пробовал с order, но ожидаемых изменений не произошло.В чем проблема с заказом?

ggplot(a, aes(fill=Var1, y=value, x=Var2, order("pass","fail"))) 
       +geom_bar( stat="identity", position="fill") + labs(x = "Subject", y="Pass/Fail Percentage") 
       + guides(fill=guide_legend(title="Result"))

Это мои данные

Var1    Var2    value
pass    Maths   865     
fail    Maths   135     
pass    Reading 910     
fail    Reading 90      
pass    Writing 886     
fail    Writing 114

Answer 1

Я рекомендую пересчитать коэффициент следующим образом.

a %>% mutate(Var1 = factor(Var1, levels = c("fail", "pass"))) %>%
  ggplot(aes(fill=Var1, y=value, x=Var2)) + 
  geom_bar( stat="identity", position="fill") + labs(x = "Subject", y="Pass/Fail Percentage") + 
  guides(fill=guide_legend(title="Result"))