R: latticeのグラフの重ね合わせ

lattice系のグラフを重ね合わせるには、library(latticeExtra)のas.layer()を使用する。



こういうコード

library(lattice)
library(latticeExtra)

## surface
x <- seq(0, 2, length = 100)
y <- seq(0, 2, length = 100)
grid <- expand.grid(x = x, y = y)
grid$z <- grid$x + exp(grid$y) - grid$y

## points
px <- seq(0.25, 1.75, length = 7)
py <- seq(0.25, 1.75, length = 7)
pnt <- expand.grid(x = px, y = py)

## graph
margin <- 0.05
lvp <- levelplot(z ~ x * y, data = grid,
        col.regions = terrain.colors,
        xlim = c(min(grid$x) - margin, max(grid$x) + margin),
        ylim = c(min(grid$y) - margin, max(grid$y) + margin))
xyp <- xyplot(y ~ x, data = pnt, col = "black",
        xlim = c(min(grid$x) - margin, max(grid$x) + margin),
        ylim = c(min(grid$y) - margin, max(grid$y) + margin))

lvp + as.layer(xyp, axes = NULL)

タグ：R Lattice

コメント 1

latticeの説明は少なく、xyplotの重ね合わせをしようとしていたところ、この記事が非常に役立ちました。ありがとうございました。
by ただし (2023-01-12 14:44)