r - 2 つの Y 軸でプロット: 信頼区間

Question

2 つの 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のtwoord.plot関数も試しましたが、エラーバーを追加することはできないと思います。

ggplot2を使用すると、同じ Y 軸を持つ 2 つの異なるパネルにのみプロットできました。

これを行う方法はありますか？

Answer 1

add=TRUE、_

FALSE (デフォルト) の場合、新しいプロットを作成します。TRUE の場合、エラー バーを既存のプロットに追加します。

たとえば、最後の行は次のようになります。

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

PS: でこれを行うのは難しいですggplot2。このハドレーコードを見てください

編集

ユーザー座標系は、新しいユーザー設定を指定することで再定義されるようになりました。ここでは手動で行います。

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')