R语言绘制的反转图例顺序、线条和不一样调色板

library(plyr)
library(tidyverse)
library(gcookbook) # For the data set

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + geom_area()

scale_fill_brewer(palette="Blues", breaks=rev(levels(uspopage$AgeGroup)))palette支持的颜色参照表：

颜色改成青色，效果如下图所示：

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Cyan", breaks=rev(levels(uspopage$AgeGroup)))

边框改成褐色

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="brown", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Cyan", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Reds", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="BrBG", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="PiYG", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Paired", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Dark2", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Set2", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="GnBu", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="PuBu", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Greys", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Oranges", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Purples", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="YlOrRd", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="YlOrBr", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="YlGnBu", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="YlGn", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="RdPu", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="PuRd", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="PuBuGn", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="PuBu", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="OrRd", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="GnBu", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="RdYlBu", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="PuOr", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="PRGn", breaks=rev(levels(uspopage$AgeGroup)))

ggplot(uspopage, aes(x=Year, y=Thousands, fill=AgeGroup)) + 
  geom_area(colour="black", size=.2, alpha=.4) +
  
  scale_fill_brewer(palette="Blues", breaks=rev(levels(uspopage$AgeGroup)))

参考文献：

Practical Receipes for Visualizing Data----R Graphics Cookbook —Winston Chang O’REILLY 第65页

https://statisticsglobe.com/scale-colour-fill-brewer-rcolorbrewer-package-r颜色对照表