0

次のラティスグラフィックスに対して、2つの等価プロットを一緒に追加したいと思います。この関数の通常のトリックは、これらの格子ベースのグラフではplot()機能par(mfcol=c(1,2))しません。ソリューションから必要な情報を抽出できないようですが、関連する投稿を確認しました。次の等価プロットを組み合わせて、出力で互いに隣接するようにするにはどうすればよいですか？または、言い換えれば、格子は何に相当しpar(mfcol=c(1,2))ますか？

require(equivalence)

# Simplified data for equivalence plot 1
a = c(2,4,6,8,10,12,14,16,18)
b = c(1,3,5,7,9,11,13,15,17)
mydata1 = data.frame(a,b)

equivalence.xyplot(mydata1$b ~ mydata1$a,
                   alpha=0.05, b0.ii=0.25, b1.ii=0.25)


# Simplified data for equivalence plot 2
x = c(1,4,8,2,3,4,6,5,9)
y = c(2,4,7,3,3,4,7,5,9)
mydata2 = data.frame(x,y)

equivalence.xyplot(mydata2$y ~ mydata2$x,
                   alpha=0.05, b0.ii=0.25, b1.ii=0.25)
4

1 に答える 1

1

@mplourdeによるコメントのリンクから、コードに次の変更を加えると、グラフが私の仕様に合わせて配置されます。

require(equivalence)

# Simplified data for equivalence plot 1
a = c(2,4,6,8,10,12,14,16,18)
b = c(1,3,5,7,9,11,13,15,17)
mydata1 = data.frame(a,b)

px1 = equivalence.xyplot(mydata1$b ~ mydata1$a,
                   alpha=0.05, b0.ii=0.25, b1.ii=0.25)

# Simplified data for equivalence plot 2
x = c(1,4,8,2,3,4,6,5,9)
y = c(2,4,7,3,3,4,7,5,9)
mydata2 = data.frame(x,y)

px2 = equivalence.xyplot(mydata2$y ~ mydata2$x,
                   alpha=0.05, b0.ii=0.25, b1.ii=0.25)

print(px1, position=c(0, 0.5, .5, 1), more=TRUE)
print(px2, position=c(0.5, 0.5, 1, 1))

ここに画像の説明を入力してください

于 2012-10-30T17:55:01.823 に答える