在R中的四个图像图下面有一个居中的颜色条

Question

我正试图为我的四幅图像绘制一个居中的颜色条。我做了一个主成分分析，得到了我的前四个组件。这些组件显示或应显示在2D网格中，获得特定的经度和纬度。我想要生成的颜色栏应该代表所有四个组件的值，它应该在最后一个组件的中心。代码生成了想要的四个图，现在只缺少图例。

我的代码到目前为止：

nlevel <- 64 
nc2$dim$lon$vals -> lon 
nc2$dim$lat$vals -> lat 
par(mfrow = c(4,1)) 
image(lon,lat,xMat1, xlab = "Longitude", ylab = "Latiitude", col = tim.colors(level)) 
image(lon,lat,xMat2, xlab = "Longitude", ylab = "Latiitude", col = tim.colors(level)) 
image(lon,lat,xMat3, xlab = "Longitude", ylab = "Latiitude", col = tim.colors(level)) 
image(lon,lat,xMat4, xlab = "Longitude", ylab = "Latiitude", col = tim.colors(level))

xMat 1-4在这里是几个主要组件的值的矩阵。数字1-4是几个组成部分。

有什么建议吗？

提前致谢！