R에서 두 개의 등가 플롯 (격자)을 결합하는 방법?

Question

다음 격자 그래픽에 대해 두 개의 등가 플롯을 함께 추가하고 싶습니다. plot() function par(mfcol=c(1,2))에 대한 일반적인 트릭은 격자 기반 그래프에서 작동하지 않습니다. 관련 게시물을 살펴 보았지만 솔루션에서 필요한 정보를 추출 할 수는 없습니다. 출력에서 서로 가깝게 (나란히) 있도록 다음 등가 플롯을 어떻게 결합 할 수 있습니까? 즉, par(mfcol=c(1,2))에 해당하는 격자는 무엇입니까? @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) 

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

, 코드에 다음과 같은 변경 내 사양에 그래프를 배치 :

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