如何在R中結合兩個等價圖（點陣）？

Question

我想爲下面的格子圖形添加兩個等價圖。我對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) 

Answer 1

從由@mplourde的評論link，有下列變更事項的代碼安排圖表來我的規格：

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