生态、遥感论文配色: 最新Natura绘图配色案例，与R调用代码！

许多小伙伴感觉论文可视化图片颜色搭配是一件很困难的事情。 

有的时候，即便是拥有了现成的配色方案，但应用在自己论文的插图上就总感觉哪里不对劲，且感觉怪怪的。

所以，为了解决这一现象，我们会不定期把一些经典期刊、Top期刊的配色方案，分享给大家。我可以应用在诸如折线图、柱状图、散点图、地图等多种类型的插图中，以便大家自行参考。

参考文献：

Jiang, M., Crous, K.Y., Carrillo, Y. et al. Microbial competition for phosphorus limits the CO2 response of a mature forest. Nature (2024).

https://doi.org/10.1038/s41586-024-07491-098-7

1、原图配色方案

colorlist <- c("#019e74","#e69f00","#f0e442")##(图a)
colorlist <- c("#d53e4f","#f36d44","#fcae62","#fee18b","#ffffc0","#e7f59a","#66c2a5","#3188bd")##(图b)
colorlist <- c("#023ea5","#aeb3cd","#b56a7a","#dfd7da")##(图c)
colorlist <- c("#b2de69","#bdbadb","#fdcde6","#fdb461")##(图d)

colorlist <- c("#f0e442","#57b4e9")##(图a)
colorlist <- c("#b4cde5","#dfcbe4","#7f7f7f","#fed9a6","#ffffcd")##(图b)
colorlist <- c("#fdd976","#e31a1c","#800127")##(图c)

2、配图方案调用

接下来用脚本展示给大家看，画了个水平散点图。其余颜色，我们可以直接换colorlist里的代码即可！！！

library(ggplot2)
colorlist <- c("#b2de69","#bdbadb","#fdcde6","#fdb461")##(图d)
colorlist
df <- data.frame(x=seq(1, length(colorlist)),y=0)
#可以用下边命令简单画个散点图看下配色
#plot(1:length(colorlist),col=colorlist, pch=19)
#当然也可以用我们常用ggplot画个散点图展示
df <- data.frame(x=seq(1, length(colorlist)),y=0)
ggplot(df, aes(x=x, y=y)) +
  geom_point(aes(color=factor(x)), size=18)+ #geom_point绘制散点图
  scale_colour_manual(values = colorlist) + #scale_colour_manual自定义配色 把我们的颜色传进去看看 
  theme_void() + #背景是全白 啥也没
  theme(legend.position="none") #图例也不展示

如果你觉得我的分享对你有帮助的话，欢迎大家在这里点赞、在看、分享。