Изменения цвета баров в ggplot

Question

errorBar <- ggplot(ErrorAnalDF, aes(Task, ErrorPer, colour = Position)) 
    errorBar + stat_summary(fun.y = mean, geom = "bar", position = "dodge", fill = "blue") + 
     stat_summary(fun.data = mean_cl_normal, geom = "errorbar", position = position_dodge(width = 0.90), width = 0.2) + 
    labs(x = "Task", y = "Error Percentage") + facet_wrap(~MuBack) 

Как получить различные цвета для заливки брусков (синего) для головы и хвоста, как у меня есть для погрешностей и границ? Я попытался errorBar + stat_summary(fun.y = mean, geom = "bar", position = "dodge", fill = c("red","blue") или добавить заливку в labs(x = "Task", y = "Error Percentage", fill="Position")

// редактировать: с помощью fill вместо colour

errorBar <- ggplot(ErrorAnalDF, aes(Task, ErrorPer, fill = Position)) 

дает мне эту неприятную выглядящий график

Answer 1

Оставьте из fill= в первом stat.summary и в вашем ggplot(..., aes())fill = position вместо colour = position

errorBar <- ggplot(ErrorAnalDF, aes(Task, ErrorPer, fill = Position)) 
errorBar + stat_summary(fun.y = mean, geom = "bar", position = "dodge") + 
    stat_summary(fun.data = mean_cl_normal, geom = "errorbar", position = position_dodge(width = 0.90), width = 0.2) + 
labs(x = "Task", y = "Error Percentage") + facet_wrap(~MuBack)