R分别为正负条形图着色二

着春绿色和西红柿色

library(gcookbook) # For the data set

csub <- subset(climate, Source=="Berkeley" & Year >= 1900)

csub$pos <- csub$Anomaly10y >= 0
ggplot(csub, aes(x=Year, y=Anomaly10y, fill=pos)) +
  
  geom_bar(stat="identity", position="dodge")
ggplot(csub, aes(x=Year, y=Anomaly10y, fill=pos)) +
  
  geom_bar(stat="identity", position="identity", colour="white", size=0.25) +
  
  scale_fill_manual(values=c( "springgreen", "tomato"), guide=FALSE)

着茶色和刚兰色

ggplot(csub, aes(x=Year, y=Anomaly10y, fill=pos)) +
  
  geom_bar(stat="identity", position="identity", colour="white", size=0.25) +
  
  scale_fill_manual(values=c( "tan", "steelblue"), guide=FALSE)

着青绿色和蓟色

ggplot(csub, aes(x=Year, y=Anomaly10y, fill=pos)) +
  
  geom_bar(stat="identity", position="identity", colour="white", size=0.25) +
  
  scale_fill_manual(values=c( "turquoise", "thistle"), guide=FALSE)

着石兰色和灰石色

ggplot(csub, aes(x=Year, y=Anomaly10y, fill=pos)) +
  
  geom_bar(stat="identity", position="identity", colour="white", size=0.25) +
  
  scale_fill_manual(values=c( "slateblue", "slategray"), guide=FALSE)

暗金黄色和褚色

ggplot(csub, aes(x=Year, y=Anomaly10y, fill=pos)) +
  
  geom_bar(stat="identity", position="identity", colour="white", size=0.25) +
  
  scale_fill_manual(values=c( "sienna", "darkgoldenrod"), guide=FALSE)

参考文献：Practical Receipes for Visualizing Data----R Graphics Cookbook ---Winston Chang O'REILLY

                 百度文库---颜色大全：含中英文对照及色值

开发环境：RStudio和微信截屏工具