проблемы с заказами баров в geom_bar

Question

У меня есть следующий набор данных:

tab_mood_graf=pivot_longer(mood,cols=c("Mood_before_Mode","Mood_after_Mode"),names_to="Mood",values_to="value")
tab_mood_graf

Treatment   Mood               value
<chr>       <chr>              <chr>
Happiness   Mood_before_Mode    6       
Happiness   Mood_after_Mode     5       
Neutral     Mood_before_Mode    3       
Neutral     Mood_after_Mode     5       
Sadness     Mood_before_Mode    3       
Sadness     Mood_after_Mode     3

и с помощью этих команд я создал следующую диаграмму:

tab_mood_graf$Mood=factor(tab_mood_graf$Mood,levels=unique(tab_mood_graf$Mood))
b=ggplot(data=tab_mood_graf,mapping=aes(x=Treatment,y=value,fill=Mood))+
  geom_bar(stat="identity",position=position_dodge())+
  geom_text(aes(label=value),vjust=1.6,color="black",position=position_dodge(0.9),size=3.5)+
  scale_fill_manual(values=c("#FDB462","#B3DE69"))+
  labs(title="Effect of seeing the video")+
  theme_minimal()
b

введите описание изображения здесь

Порядок баров в обработке Счастье не верен: бар "Mood_before_Mode" должен идти раньше, чем бар "Mood_after_Mode". Как я могу изменить порядок этих 2 баров?

У меня также есть похожая проблема с другим барплотом, построенным таким же образом, где Mood_after / before заменяется на Easy / medium / Hard. Как можно установить порядок легенды и порядок баров? (в наборе данных порядок уже в порядке)

Большое спасибо за вашу помощь !!!

введите описание изображения здесь