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="identity")
1
2
3
4
5
6
7
8

library(gcookbook) # For the data set

csub <- subset(climate, Source=="Berkeley" & Year >= 1900)
ggplot(csub, aes(x=Year, y=Anomaly10y, fill=pos)) +
  
  geom_bar(stat="identity", position="identity", colour="black", size=0.25) +
  
  scale_fill_manual(values=c("#CCEEFF", "#FFDDDD"), guide=FALSE)
1
2
3
4
5
6
7
8

颜色改成蓝色，颜色值也跟着改

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="blue", size=0.25) +
  
  scale_fill_manual(values=c("#CCEFFF", "#FFDDAD"), guide=FALSE)
1
2
3
4
5
6
7
8
9
10
11
12
13

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="cyan", size=0.25) +
  
  scale_fill_manual(values=c("#CCEFFF", "#FFDDAD"), guide=FALSE)
1
2
3
4
5
6
7
8
9
10
11
12
13

ggplot(csub, aes(x=Year, y=Anomaly10y, fill=pos)) +
  
  geom_bar(stat="identity", position="identity", colour="brown", size=0.25) +
  
  scale_fill_manual(values=c("#CCEFFF", "#FFDDAD"), guide=FALSE)
1
2
3
4
5

ggplot(csub, aes(x=Year, y=Anomaly10y, fill=pos)) +
  
  geom_bar(stat="identity", position="identity", colour="pink", size=0.25) +
  
  scale_fill_manual(values=c( "purple4", "red4"), guide=FALSE)
1
2
3
4
5

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( "cyan4", "black"), guide=FALSE)
1
2
3
4
5

参考文献：R数据科学—[新西兰]哈德利 威克姆，[美]加勒特 格罗勒芒德—陈光欣[译] 北京:人民邮电出版社

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