Contrôle de la marge de figure intérieure dans Grid.layout

Question

J'essaie de tracer plusieurs parcelles de réseau dans une grille. Pour ce faire, j'utilise le code suivant:

plot <- xyplot(1:10~1:10)

page.layout <- grid.layout(nrow = 2, ncol = 1,
               widths = unit(c(1), "null"),
               heights = unit(c(1), "null"),
               default.units = "null",
               respect = FALSE,
               just = "centre")

pushViewport(viewport(layout = page.layout))
pushViewport(viewport(layout.pos.row = 1))
par(mar = c(5, 4, 4, 2))
print(plot, newpage = FALSE)
popViewport()
pushViewport(viewport(layout.pos.row = 2))
par(mar = c(5, 4, 4, 2))
print(plot, newpage = FALSE)
popViewport()

J'aimerais maintenant réduire l'espace entre les deux figures, j'ai lu dans la vignette pour base de grille, ces simples contrôles graphiques, tels ont le pair(mar=c()) devrait fonctionner, mais ce n'est pas le cas ici. Peut-être que je manque quelque chose d'évident, mais je ne peux pas comprendre pourquoi je ne peux pas contrôler les paramètres de marge. Aucune suggestion?

Answer 1

lattice Fournit quelques options pour contrôler les marges de tracé,

 p <- xyplot(1:10~1:10,
             par.settings=list(layout.heights=list(top.padding=-3, bottom.padding=-1)))

library(gridExtra)
grid.arrange(p, p, nrow=2)