R ggplot错误条问题

好的，我这里有两个问题，我不知道如何解决：

1） 错误条不会与图表上的条对齐。 2） 这些条的颜色是用我想要的颜色勾勒出来的，但由于某种原因用黑色填充

Oreo_Cycle1 <- Cycle1[Cycle1$Food_Type=="Oreo",]
Chow_Cycle1 <- Cycle1[Cycle1$Food_Type=="Chow",]
#Oreo graph
Oreop <- ggplot(Oreo_Cycle1, aes(as.factor(Oreo_Cycle1$Time_Point),           
Oreo_Cycle1$Amount, color=Oreo_Cycle1$Treatment, ymax=Oreo_Cycle1$Amount +  
Oreo_Cycle1$SEM, ymin=Oreo_Cycle1$Amount - Oreo_Cycle1$SEM))

Oreop + geom_bar(position="dodge", width=0.5, stat="identity") +   
scale_color_manual("Treatment Group", labels=c("Control", "HD+S", "HD+S+E"),  
values=c("#CC0000","#00CC00","#0000CC")) + xlab("Timepoint (h)") + ylab("HP 
consumed (g)") + geom_errorbar(color="black")

---

color

仅处理条的外部<代码>填充确定它们内部的颜色

ggplot(Oreo_Cycle1, aes(x = as.factor(Time_Point), 
                        y = Amount, 
                        fill = Treatment, 
                        ymax=(Amount + SEM), 
                        ymin=(Amount - SEM)) + 
    geom_bar(position="dodge", width=0.5, stat="identity") +
    scale_fill_manual("Treatment Group", labels=c("Control", "HD+S", "HD+S+E"),  
                       values=c("#CC0000","#00CC00","#0000CC")) + 
    xlab("Timepoint (h)") + ylab("HP consumed (g)") +
    geom_errorbar(color="black")

---

我相信你已经注意到了，但我简化了你的代码。你不需要每次打电话时都指定

Oreo\u Cycle1

。

要使你的数据集可用，只需使用dput（）参见谢谢，但当我这样做时，它实际上不会将条形图更改为我指定的颜色，而是使用默认的颜色。我犯了一个错误并更正了它，因此，请重新尝试代码。我对您的代码进行了一些更正，但最终得到了它。谢谢…现在我只需要找出错误条…您想如何处理错误条？默认情况下，它们应为黑色。所有关闭的错误条在每个时间点聚集在一个条上，而不是单独在每个条上

ggplot(Oreo_Cycle1, aes(x = as.factor(Time_Point), 
                        y = Amount, 
                        fill = Treatment, 
                        ymax=(Amount + SEM), 
                        ymin=(Amount - SEM)) + 
    geom_bar(position="dodge", width=0.5, stat="identity") +
    scale_fill_manual("Treatment Group", labels=c("Control", "HD+S", "HD+S+E"),  
                       values=c("#CC0000","#00CC00","#0000CC")) + 
    xlab("Timepoint (h)") + ylab("HP consumed (g)") +
    geom_errorbar(color="black")