Repository navigation
fails with ggh4x::facet_wrap2(trim_blank=FALSE) #442
Description
Activity
It might be that one of the assumptions of patchwork is to have a grob present (even if it is a
zeroGrob()) at a panel position, whereas this is not the case withggh4x::facet_wrap2(trim_blank = FALSE). It might be more appropriate for ggh4x to replace the empty panels withzeroGrob()s than to remove the panels.I figured it'd be something special with the empty space.
Any traction here in patchwork or in ggh4x#202? @teunbrand
I explored this problem a while ago but haven't found a satisfactory solution. Leaving in dummy grobs to satisfy the gtable assumptions would disrupt the current mechanism too much for me to commit to that.
For the record (future me + anybody else who may be interested, until something more "proper" may be implemented), an interim solution for me is to use
ggplot2::facet_wrap()for the normal plot, and add another similar plot with the correct number of panes withtheme_void()(completely empty). It's imperfect (the pane alignment is off a little in some of my plots though not below), but it's workable for now.library(ggplot2) library(patchwork) want_cols <- 6 gg2 <- ggplot(mtcars, aes(mpg,disp)) + geom_point() + facet_wrap(vs + gear ~ ., ncol = want_cols) gg1a <- ggplot(mtcars, aes(mpg,disp)) + geom_point() + facet_wrap(cyl ~ ., ncol = want_cols) (need_cols <- (want_cols - length(unique(ggplot_build(gg1a)$layout$layout$PANEL)))) # [1] 3 (facet_vars <- names(gg1a$facet$params$facets)) # [1] "cyl" gg1b <- merge( subset(gg1a$data[1,], select = setdiff(names(gg1a$data), facet_vars)), as.data.frame(lapply(setNames(nm=facet_vars), function(z) strrep(" ", 1:need_cols))), by = NULL ) |> ggplot() + facet_wrap(vars(!!!lapply(facet_vars, as.symbol)), ncol = want_cols) + theme_void() (gg1a + gg1b) / gg2
When using
ggh4x::facet_wrap2in a subplot and combining, it works only iftrim_blank=TRUE(the default); if I try to preserve blanks then it presents a blank canvas.(empty for me)
session info