柱状图连续颜色填充

画一个柱状图，每个柱的颜色是类似于heatmap图一样的连续的颜色
数据：

mf<-read.table(pipe(“pbpaste”),sep = “\t”,header = F)  ＃读取数据

mf\$V1 = factor(mf\$V1,levels=mf$V1) ＃画图时 让X轴标签顺序按输入顺序排序，而不是按字母顺序排序

ggplot(data=mf,aes(x=V1,y=V2,fill=V3)) + geom_bar(stat=”identity”,col=’gray’) + scale_fill_gradient2(“color”,low=’blue’,midpoint=0,high=’red’)  + theme(axis.text.x  = element_text(size=10,colour=”black”,angle = 90) ) + xlab(“”) + ylab(“Gene Number”)

自定义色bar的范围: limits(-3,3)
ggplot(data=mf,aes(x=V1,y=V2,fill=V3)) + geom_bar(stat=”identity”,col=’gray’) + scale_fill_gradient2(“color”,low=’blue’,midpoint=0,high=’red’,limits=c(-3,3)) + theme(axis.text.x = element_text(size=10,colour=”black”,angle = 90) ) + xlab(“”) + ylab(‘-log(P-value)’)

注：ggplot2颜色梯度： http://www.360doc.com/content/16/0703/00/3852985_572542419.shtml

尊重他人劳动成果，转载请注明出处:Bluesky's blog » 柱状图连续颜色填充