контурный график стека в R

Question

У меня есть две разные матрицы (одна и та же ось x и y), которые в виде контура изображают контур (x, y, z). Я хотел бы выяснить, как объединить обе матрицы в один график в R.

Я пытался использовать функцию as.layer, но она не работает

heteroplot <- contour(a[,1],t(a[,1]),nlevels=7,heterocov^2,col="green",xlab="ppm",ylab="ppm",bty="n")

homocov <- contour(a[,1],t(a[,1]),nlevels=7,cova^2,col="red",xlab="ppm",ylab="ppm",bty="n")

as.layer(homocov,x.same = TRUE, y.same = TRUE)

спасибо!

Answer 1

Вы можете сделать это, если я правильно понял, используя аргумент add для contour().Например:

x <- -6:16
y <- x
z1 <- outer(x, sqrt(abs(x)), FUN = "/")
z2 <- outer(x, abs(x), FUN = "/")
contour(x, x, z1)
contour(x, x, z2, add = TRUE, col = "red") ## overlay second contour

, что дает:

Не уверен, откуда взята функция as.layer ...?