具有两个 Y 轴的图：置信区间

我试图用误差线和两个 y 轴绘制几个点。 然而，在每次调用plotCI 或errbar 函数时，都会初始化一个新的绘图——无论是否有par(new=TRUE) 调用。

require(plotrix)
x <- 1:10
y1 <- x + rnorm(10)
y2<-x+rnorm(10)
delta <- runif(10)

plotCI(x,y=y1,uiw=delta,xaxt="n",gap=0)
axis(side=1,at=c(1:10),labels=rep("a",10),cex=0.7)
par(new=TRUE)
axis(4)
plotCI(x,y=y2,uiw=delta,xaxt="n",gap=0)

我也尝试过双字图函数来自plotrix，但我认为不可能添加误差线。

With ggplot2我只设法在具有相同 Y 轴的两个不同面板中进行绘制。

有没有办法做到这一点？

Use add=TRUE,

如果为 FALSE（默认），则创建一个新图；如果为 TRUE，则将误差线添加到 现有情节。

例如最后一行变为：

    plotCI(x,y=y2,uiw=delta,xaxt="n",gap=0,add=TRUE)

PS：很难做到这一点ggplot2。看一眼这个哈德利代码

EDIT

现在通过指定新的用户设置重新定义用户坐标系。这里我手动进行。

plotCI(x,y=y1,uiw=delta,xaxt="n",gap=0)
axis(side=1,at=c(1:10),labels=rep("a",10),cex=0.7)
usr <- par("usr")
par(usr=c(usr[1:2], -1, 20))
plotCI(x,y=y2,uiw=delta,xaxt="n",gap=0,add=TRUE,col='red')
axis(4,col.ticks ='red')