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