将图例定位在图中除以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))

产生