双y轴
2. 颜色渐变
3....-t(as.matrix((1:26)*10))
xR"..., "S","T","U","V","W","X","Y","Z")
colnames(data)<-x
data1<-data[,order(data,decreasing=T)]
x1<-x[...,实现颜色的渐变
axis(2,las=1)
#添加左侧Y轴
par(new=T)
axis(4,col="black",las=1)
#添加右侧Y轴
title("KOGs Functional...Categories")
#添加标题
mtext(side=4,padj=5,"Percent Genes")
#添加右侧Y轴标记
很简单吧?