使用佈局函數在r中繪製多個柵格

Question

我試圖在一個圖中繪製五個柵格。我可以很容易地用par()來做到這一點，但我希望我的多槽與頂部光柵居中對稱。創建一個虛擬的情節正常工作：

m <- rbind(c(1, 1), c(2, 3), c(4,5)) 
print(m) 

    [,1] [,2] 
[1,] 1 1 
[2,] 2 3 
[3,] 4 5 

layout(m) 
layout.show(5) 

但是當我嘗試使用我的柵格這一切都錯了：

m <- rbind(c(1, 1), c(2, 3), c(4,5)) 
layout(m) 

plot(rast1) 
plot(shape, add=TRUE) 
plot(rast2) 
plot(shape, add=TRUE) 
plot(rast3) 
plot(shape, add=TRUE) 
plot(rast4) 
plot(shape, add=TRUE) 
plot(rast5) 
plot(shape, add=TRUE) 

正在添加的 「形狀」進入每一個小區只是我正在工作的保護區的輪廓。最下面三個看起來像是處於正確的位置，但顯然不是頂級的。假設底部3處於正確的位置，我也想讓每一個更大。

我試圖改變劇情邊緣，但這只是讓事情變得更糟。我也嘗試使用image()而不是plot()建議here但我剛剛收到錯誤消息。

作爲一個重複的例子，你可以使用：

library(raster) 
r <- raster(ncols=5, nrows=5, xmn=1, xmx=5, ymn=1, ymx=5) 
rast1 <- setValues(r, rnorm(25)) 
rast2 <- setValues(r, rnorm(25)) 
rast3 <- setValues(r, rnorm(25)) 
rast4 <- setValues(r, rnorm(25)) 
rast5 <- setValues(r, rnorm(25)) 

m <- rbind(c(1, 1), c(2, 3), c(4,5)) 
layout(m) 

plot(rast1) 
plot(rast2) 
plot(rast3) 
plot(rast4) 
plot(rast5) 

這讓你非常相似尋找爛攤子：

誰能幫我）固定每個柵格的位置， b）使每個光柵更大？任何幫助將不勝感激，我即將放棄，只需用手粘住單獨的柵格。

Answer 1

我想這樣的作品，如果你使用image而不是plot

library(raster) 
r <- raster(ncols=5, nrows=5, xmn=1, xmx=5, ymn=1, ymx=5) 
r1 <- r2 <- r3 <- r4 <- r5 <- setValues(r, rnorm(ncell(r))) 

m <- rbind(c(1, 1), c(2, 3), c(4,5)) 
layout(m) 

image(r1) 
image(r2) 
image(r3) 
image(r4) 
image(r5)