绘制矩形内的所有数据

Question

我想在矩形内绘制所有内容。我希望矩形是X的总长度百分比（所以100％）。我想在矩形中使用该图的y轴上出现的值的百分比进行着色。我附上了一个直方图和情节，其中包含我正在寻找的数据。我只是想把它变成一个阴影矩形。这可能吗？

x <- sample(10:20, 44, TRUE)
h = hist(x)
h$density = h$counts/sum(h$counts)*100
plot(h,freq=F)