ggplotの塗りつぶしの順番は、stat = identityとdodgeです。

Question

バーの順序をBefore-Afterに変更したいと思います。

私は他の同様の投稿を見ました：例えば ggplot bar plot with facet-dependent order of categoriesしかし、これにどのように適用するかを理解できませんでした。

df<-data.frame(
    When<-c('Before', 'Before','After','After'), 
    Group<-c('Untreated','Treated','Untreated','Treated'), 
    Mean<-c(3,4,3,5) 
) 

ggplot(df, aes(x = Group, y = Mean, fill = When))+ 
    geom_bar(stat='identity', position=dodge) + 
    scale_x_discrete(limits = rev(levels(df$Group))) 

Answer 1

ggplot(df, aes(x = Group, y = Mean, fill = factor(When, levels = c("Before", "After")))) + 
    geom_bar(stat='identity', position="dodge") + 
    scale_x_discrete(limits = rev(levels(df$Group))) + 
    guides(fill = guide_legend(title = "When"))