绘制上面这个漂亮的图,要注释以下3点:
1. 双y轴
2. 颜色渐变
3....-c("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R", "S","T","U","V","W","X","...Y","Z")
colnames(data)x
data1<-data[,order(data,decreasing=T)]
x1x[order(data,decreasing=T)]...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