barplot(rev(qs$ppp),horiz=T,xlim=c(-4,1),axes=F,col=rep(brewer.pal(9,'YlOrRd'),each=15))
text(seq(from=0.7,length.out=135,by=1.2),x=-2,label=rev(qs$nnn))
axis(3,c(0,0.25,0.5,0.75,1),c('0%','25%','50%','75%','100%'))
代码如上，数据集叫qs， 有一列表示名称叫nnn, 有一列是数字叫ppp。
要绘制横向的直方图必须将barplot函数的参数 horiz置为T，axes=F表示隐藏了坐标轴，xlim表示坐标轴范围是-4到1。col表示颜色的配置，其中rep函数把调色板序列的每个值重复15遍，使颜色有一个渐进显示的效果。
text函数补上左边的名称栏，第一个参数定义了高度，x=-2表示文字的中心在x=-2上。
最后用axis函数单独绘制了一条自定义的x坐标轴 显示在上方，所以第一个参数要传3。
最后要注意,我用Rstudio 输出图片时要把尺寸选大一点,不然会像预览窗口那样字都挤在一起。
结果如下：
