diff --git a/R/plot_patchwork.R b/R/plot_patchwork.R index 483b264..1ff1c69 100644 --- a/R/plot_patchwork.R +++ b/R/plot_patchwork.R @@ -538,7 +538,7 @@ add_strips <- function(gt) { gt <- gtable_add_cols(gt, unit(0, 'mm'), panel_loc$l - 1 - strip_pos) } else if (strip_pos == 2) { gt$widths[panel_loc$l - 1] <- sum(gt$widths[panel_loc$l - c(1, 2)]) - gt <- gt[-(panel_loc$l - 2), ] + gt <- gt[, -(panel_loc$l - 2)] } gt }