SSブログ

R: latticeのグラフの重ね合わせ [統計]

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

[lattice + xyplot]

こういうコード
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
nice!(1)  コメント(1)  トラックバック(0) 

nice! 1

コメント 1

ただし

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

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

Facebook コメント

トラックバック 0