fix stacking (#1817)

thomasp85 · web-flow · commit 5a1868749d28 · 2016-10-04T00:20:27.000+02:00
Fixes #1812
diff --git a/R/facet-grid-.r b/R/facet-grid-.r
@@ -311,7 +311,7 @@ FacetGrid <- ggproto("FacetGrid", Facet,
     }
 
     panel_table <- gtable_matrix("layout", panel_table,
-      panel_widths, panel_heights, respect = respect, clip = "on")
+      panel_widths, panel_heights, respect = respect, clip = "on", z = matrix(1, ncol = ncol, nrow = nrow))
     panel_table$layout$name <- paste0('panel-', rep(seq_len(ncol), nrow), '-', rep(seq_len(nrow), each = ncol))
 
     panel_table <- gtable_add_col_space(panel_table,
diff --git a/R/facet-wrap.r b/R/facet-wrap.r
@@ -231,7 +231,7 @@ FacetWrap <- ggproto("FacetWrap", Facet,
     empties <- apply(panel_table, c(1,2), function(x) is.zero(x[[1]]))
     panel_table <- gtable_matrix("layout", panel_table,
      widths = unit(rep(1, ncol), "null"),
-     heights = unit(rep(aspect_ratio, nrow), "null"), respect = respect, clip = "on")
+     heights = unit(rep(aspect_ratio, nrow), "null"), respect = respect, clip = "on", z = matrix(1, ncol = ncol, nrow = nrow))
     panel_table$layout$name <- paste0('panel-', rep(seq_len(ncol), nrow), '-', rep(seq_len(nrow), each = ncol))
 
     panel_table <- gtable_add_col_space(panel_table,

Original file line number	Diff line number	Diff line change
`@@ -311,7 +311,7 @@ FacetGrid <- ggproto("FacetGrid", Facet,`
`311`	`311`	`}`
`312`	`312`
`313`	`313`	`panel_table <- gtable_matrix("layout", panel_table,`
`314`		`- panel_widths, panel_heights, respect = respect, clip = "on")`
	`314`	`+ panel_widths, panel_heights, respect = respect, clip = "on", z = matrix(1, ncol = ncol, nrow = nrow))`
`315`	`315`	`panel_table$layout$name <- paste0('panel-', rep(seq_len(ncol), nrow), '-', rep(seq_len(nrow), each = ncol))`
`316`	`316`
`317`	`317`	`panel_table <- gtable_add_col_space(panel_table,`