Удаление пробелов в построении растров в R - PullRequest
Новая
       7

Удаление пробелов в построении растров в R

0 голосов
/ 15 января 2020

Я пытаюсь построить 4-панельный график из 4 растров с минимальным пробелом. Я понял, как удалить ограничивающий прямоугольник, но не могу понять, как удалить пробел. Кроме того, я хотел бы одну ось Y слева, а затем каждая панель имеет ось X с метками.

4-панельный участок

Вот мой код: 

par(mfrow=c(1,4), oma = c(0, 0, 2, 0))
par(mar=c(1,1,1,1))
plot(Spring, col = rev(palette(brewer.pal(n = 10, name = "Spectral"))), zlim=c(0,.04), main = "Spring", cex.main =2, cex.axis=1.5, legend.width = 3, bty='n', box=FALSE)
plot(Summer, col = rev(palette(brewer.pal(n = 10, name = "Spectral"))), zlim=c(0,.04), main = "Summer", cex.main =2, cex.axis=1.5, legend.width = 3, bty='n', box=FALSE, yaxt='n')
plot(Fall, col = rev(palette(brewer.pal(n = 10, name = "Spectral"))), zlim=c(0,.04), main = "Fall", cex.main =2, cex.axis=1.5, legend.width = 3, bty='n', box=FALSE, yaxt='n')
plot(Winter, col = rev(palette(brewer.pal(n = 10, name = "Spectral"))), zlim=c(0,.04), main = "Winter", cex.main =2, cex.axis=1.5, legend.width = 3, bty='n', box=FALSE, yaxt='n')
mtext("Rrs 865 nm", outer = T, cex=1.5)
...