绘制上面这个漂亮的图,要注释以下3点:
1. 双y轴
2. 颜色渐变
3....横坐标的label对齐
代码及解释如下:
library(RColorBrewer)
# 载入颜色包
par(mar=c(5,4,2,6))
#控制图形四周的边距
data<-t(as.matrix((...= colorRampPalette(brewer.pal(9,"Greens"))(26),las=1, ylab="Percent of Genes",axes=F,width=0.5)
#绘制无坐标轴的条形图...,实现颜色的渐变
axis(2,las=1)
#添加左侧Y轴
par(new=T)
axis(4,col="black",las=1)
#添加右侧Y轴
title("KOGs Functional...把data换成你自己的数据试试吧~