在图上定位图例除以R中的par（mfrow）

Question

我的绘图窗口使用

par(mfrow=c(2,4))

我有7个地块，想用剩余的地块空间写图例（即右下角的空白）

我想知道是否有一种简单的方法可以将图例放到这个位置？

pdf("Plot")
par(mfrow=c(2,4), lwd=2, font=2, font.lab=2, font.axis=2, oma=c(0,0,2,0))
for(i in 1:7){
    image(imagearray[,,i], axes=F, col=grey(c(0:225)/225), main= paste("Plot",i))
    title("Plot", outer=T)

}
dev.off()

Answer 1

您没有指明如何生成图例，所以我使用来自fields包的image.plot 。 对于可reprodicible example我使用?image示例的数据

您可以将title和图例的位置移出循环。 对于最终绘图，您可以使用frame()移至下一个绘图窗口，然后绘制图例。

# data
x <- 10*(1:nrow(volcano))
y <- 10*(1:ncol(volcano))

par(mfrow=c(2,4), lwd=2, font=2, font.lab=2, font.axis=2, oma=c(0,0,2,0))

for(i in 1:7){
  image(x, y, volcano, col = terrain.colors(100), 
                                 xlab="", ylab="", axes = FALSE)
}

title("Plot", outer=T)
frame()
fields::image.plot(x,y,volcano, 
                   legend.only = TRUE,
                   legend.width = 10,
                   legend.mar = 15, 
                   col = terrain.colors(100))

产生