R 如何创建等高线图的布局？

我有两个等高线图，我想放在一个布局中，但是经典的

par（）

和

layout（）

不适合我。另外，由于绘图的比例相同，我希望在布局顶部使用一个水平标签

x <- c(0,25,50,75,100)
y <- c(0,10,20)
z1 <- matrix(c(12,12,13,12,5,12,5,5,5,12,5,12,13,14,15), nrow = 5, ncol = 3, byrow = TRUE)
z2 <- matrix(c(1,1,10,1,1,6,7,8,9,10,11,12,13,14,15), nrow = 5, ncol = 3, byrow = TRUE)
A <- matrix(seq(0, 100, by = 25), nrow = 3, ncol = 5, byrow = TRUE) #As x
B <- matrix(seq(0,20, by = 10), nrow = 3, ncol = 5) #As y

layout(matrix(c(1,2), nrow = 2, ncol = 1))

filled.contour(x,y,z1, color=terrain.colors,#
  levels = seq(0,15, by = 1),#
  plot.axes = { axis(1); axis(2); points(A,B);#
    contour(x,y,z1, level=6, label = "6 u", add=TRUE)},#
  key.axes = axis(4, seq(0, 15, by = 3)))

filled.contour(x,y,z2, color=terrain.colors,#
  levels = seq(0,15, by = 1), xlab = "Y label",#
  plot.axes = { axis(1); axis(4);points(A,B);#
    contour(x,y,z2, level=2, label = "2 u", add=TRUE)})

x请参阅：“问题在于filled.contour在内部使用布局功能，这会打乱
布局
、
拆分.屏幕
或
mfrow
的任何其他使用。”。与
mfrow
类似的尝试，带有指向可能解决方案的链接：（在谷歌搜索“r filled.contour layout”时很容易找到这两个选项。）请参阅：“问题是filled.contour在内部使用布局功能，这会扰乱
layout
、
split.screen
或
mfrow
的任何其他使用。”。与mfrow类似的尝试，带有指向可能解决方案的链接：（在谷歌搜索“r filled.contour layout”时很容易找到这两个选项）