如何在R中移动绘图

我想绘制一个shapefile并在其旁边添加一个颜色条。我通过以下代码添加了ColoraBar

  image.plot(legend.only = TRUE, zlim = c(0, 1000),
         col = colorbar, nlevel = 4, horizontal = FALSE, legend.shrink = 0.7)

我的问题如下图所示，颜色条与绘图交互

然后我找到了一些解决方案来移动颜色条

image.plot(legend.only = TRUE, zlim = c(0, 1000),
         col = colorbar, nlevel = 4, horizontal = FALSE, legend.shrink = 0.7, smallplot = c(0.95, 0.99, 0.3, 0.7))

但现在变成了这样，现在我甚至看不到数字

---

有没有办法把绘图移到左边一点，这样就有地方放颜色条了？或者有没有办法展开绘图面板以放置颜色栏？谢谢。

调整图像和图例的oma。下面是一个例子：

数据：

为右侧边距设置4行：

par(oma=c(0,0,0,4))
image(data)

打印图例前重置右侧的外部边距：

par(oma=c( 0,0,0,1))
image.plot( legend.only=TRUE, zlim=c(-4,4))

par(oma=c( 0,0,0,1))
image.plot( legend.only=TRUE, zlim=c(-4,4))