用2 y轴叠加条形图

Question

我想要一个叠加2个变量（2轴）的条形图。

这是我的情节

这就是我正在寻找的。

以下是所有数据。

我以前制作的情节。

ylim3 <- max(mesbar) + 2000
mesbar <- c(total_septiembre, total_octubre)
barplot(mesbar, main = "Month income",
        ylim = c(0,ylim3))
grid()

> mesbar
[1]  1260 12710

我希望用这些数据重叠（工作天数）

> dias_trabajados_sep
[1] 2
> dias_trabajados_oct
[1] 22

Answer 1

可以做到。但是，请记住，您正在使用轴ylims，并且观众可能会说它具有误导性。诀窍是添加par(new = TRUE)和新barplot。我选择添加蓝色槽rgb，因为它允许透明度通过其alpha参数。当灰色条比蓝色条短时，这将非常有用。

mesbar <-c(1260,12710)
dias <- c(2,22)
ylim3 <- max(mesbar) + 2000
#mesbar <- c(total_septiembre, total_octubre)
barplot(mesbar, main = "Month income",
        ylim = c(0,ylim3))
grid()
par(new = TRUE)
barplot(dias, main = "Month income", col=rgb(0,0,1, alpha=.5),xaxt = "n",yaxt="n",xlab="",ylab="", ylim=c(0,30))
axis(side=4)