我知道我可以像使用和R包一样向每个绘图窗格添加相同的曲线(请参见blow)。layer
lattice
latticeExtra
但是,假设我们想向每个绘图窗格添加不同的曲线。
例如,在下面的例子中,我不知道如何添加v1
仅在上图,v2
在左下的情节,并v3
在右下角的情节?
library(lattice)
library(latticeExtra)
set.seed(24)
v1 <- density(rnorm(1e3, 3.5))
v2 <- density(rnorm(1e3, 3))
v3 <- density(rnorm(1e3, 2.75))
foo <- xyplot((1:32*.01)~wt|gear , data = mtcars)
foo + layer(panel.polygon(v1, col = 2, alpha = 0.3))
这是一个选择
foo +
layer(if(panel.number() == 3) {
panel.polygon(v1, col = 2, alpha = 0.3)
} else if(panel.number() == 1) {
panel.polygon(v2, col = 2, alpha = 0.3)
} else{
panel.polygon(v3, col = 2, alpha = 0.3)
})
library(lattice)
library(latticeExtra)
set.seed(24)
v1 <- density(rnorm(1e3, 3.5))
v2 <- density(rnorm(1e3, 3))
v3 <- density(rnorm(1e3, 2.75))
foo <- xyplot((1:32*.01)~wt|gear , data = mtcars)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句