使用基本图形

Question

我想覆盖两个使用相同比例的条形图。我希望将第二个条形图重叠在第一个条形图上，以便传达第二个指标与第一个指标的比较。我不想使用ggplot，因为这个应用程序的速度明显变慢，我不希望我的程序包依赖它。

这就是我的开始：

set.seed(100)
x <- -5:5
z <- x + rnorm(x, 0, 0.5)

xlim <- range(c(x, z)) * c(0.9, 1.1)

barplot(x, horiz=TRUE, xlim = xlim)
par(new=TRUE)
barplot(z, horiz=TRUE, col="red", xlim = xlim)

阅读文档，似乎space和width的组合可以完成我正在尝试做的事情，但我并不聪明地弄清楚需要做出的偏移条宽从中心变化而不是从边缘变化：

barplot(x, horiz=TRUE, xlim = xlim)
par(new=TRUE)
barplot(z, horiz=TRUE, width=0.5, space=1, col="red", xlim = xlim)

请注意，红色条纹首先从下方偏移，然后从上方偏移。如何更改第二个图中条形的宽度，使它们保持在第一个图形的中心？