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( "blueviolet", "cadetblue"), 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( "cadetblue", "blueviolet"), 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( "chocolate", "coral4"), 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( "coral4", "chocolate"), 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( "hotpink4", "gold"), 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( "gold4", "hotpink4"), guide=FALSE)

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

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

开发环境：RStudio