Я пытаюсь изменить макет растрового стека, который я построил, используя ggplot. Ниже приведен пример кода для работы. По сути, я хотел бы переместить фасет с надписью G (включая панель, ось x и ось y) в пустой фасет.
library(raster)
# sample data to work with
r <- raster(ncol=10, nrow=10, vals=1:100)
r <- stack(replicate(7, r))
names(r) <- LETTERS[1:nlayers(r)]
coords <- xyFromCell(r, seq_len(ncell(r)))
dat <- stack(as.data.frame(getValues(r)))
names(dat) <- c('value', 'variable')
dat <- cbind(coords, dat)
# Plotting the raster stack using ggplot
p <- ggplot(dat, aes(x, y, fill = value))+
geom_raster() +
facet_wrap(~ variable, ncol = 2, as.table = TRUE)+
coord_equal()+
scale_fill_gradientn(colours = rev(terrain.colors(225))) +
theme(legend.position = 'none',
axis.title = element_blank())
p
Этот пост решил похожую проблему, но я просто не могу понять ее достаточно, чтобы она работала в моем случае. Я также посмотрел на (неофициальный) обзор gtable , но меня смущает только спецификация макета. Поэтому я хотел бы, чтобы работа была выполнена, но я также хотел бы получить подробное объяснение, особенно о макете в gtable.