R语言 如何生成彩色柱状图

论文绘图时产生的一个需求，想绘制出数据分布，并且柱状图以彩色呈现

核心代码：

colors <- colorRampPalette(c("blue","white","red"))(10)
h = hist(x,breaks=10,
        freq=FALSE,
        yaxt="n",
        ylim = c(0,3),
        col=colors,
        xlab="Emotion tendency",
        ylab="propotion",
        main=choose_file[flag],
        border = NA
        )

colorRampPalette(c(“blue”,“white”,“red”))(10)产生了从蓝色到白色再到红色的过渡色组合，共有十个。并直接赋值给hist函数（设置了十个分类breaks=10）的col参数。修改颜色名称可以得到不同效果。

最终效果图：