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

如果我已正确理解，则可以使用contour()的add参数来执行此操作。 例如：

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函数的来源...？