1

使用循环，我创建了一系列翻转的条形图，看起来就像这里制作的那样。创建它们之后，我想给明显不同的条形图赋予不同的颜色。因此我需要在创建绘图后更改条形的颜色。我试过使用scale_fill_manual，但这没有效果。这是 1 个图表的数据的结构方式，以及我的脚本

Station=rep("Station",5)
Slice=-1*(0:4)
mean.TD=c(344,1129,355,1349,674)
se.TD=c(114,438,121,390,14)
data115=data.frame(Station, Slice,mean.TD,se.TD)
data115


FC115=ggplot(data115, aes(x=Slice, y=mean.TD ))    +
  geom_bar(stat="identity", position=position_dodge()) +      
  geom_errorbar(aes(ymin=mean.TD-se.TD, ymax=mean.TD+se.TD), 
  width=3                                                                                           
  position=position_dodge(.9))+
theme_bw()+
ylab(expression("nematode densities (ind. 10cm"^-2*")"))  +      
xlab("Depth (cm)")+                                                   
coord_flip()     +                                             
scale_x_continuous(breaks = -4:0, labels=c("4-5","3-4","2-3","1-2","0-1"))           

FC115
4

0 回答 0