首页 文章

如何在R中组合两个等价图（晶格）？

提问于
浏览 次
0

我想为以下格子图形添加两个等价图 . 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)
r graphics lattice equivalence

1 回答

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

    enter image description here

    回复于

相关问题