我想制作这样排列的情节，但带有颜色键图例。

layout(matrix(c(1,1,2,3,3),3))
y <- matrix(1:200,10,20)
par(mai=c(0.9,0.9,0.1,0.1))
plot(1,1)
par(mai=c(0.6,0.6,0.8))
image(y)
image(y)

此代码的问题在于图像图没有颜色键图例。 image.plot 可以制作图例，但 image.plot 不适用于 layout。此问题已被问到 here，但尚未得到解答。

layout(matrix(c(1,0.8))
library(fields)    
image.plot(y)
image.plot(y)

我试图用 addLegend 创造一个传奇，

layout(matrix(c(1,0.8))
library(fields)
image(y,col=hcl.colors(12,"RdYlBu",rev = TRUE))
addLegend(setupLegend(),rev = TRUE),zlim = c(0,200))
image(y,200))

但是还是有问题。我喜欢在不使用 ggplot 的情况下绘制图表。