Merge pull request #203 from Doubt-0KB/master

fixed `byrow=FALSE` reorder not only plots but also labels

Author: clauswilke

R/plot_grid.R

@@ -177,8 +177,11 @@ plot_grid <- function(..., plotlist = NULL, align = c("none", "h", "v", "hv"),
   if (is.null(cols)) cols <- ceiling(num_plots/rows)
   if (is.null(rows)) rows <- ceiling(num_plots/cols)
 
-  # if the user wants to layout the plots by column, we use the calculated rows to reorder plots
-  if (!isTRUE(byrow)) plots <- plots[c(t(matrix(c(1:num_plots, rep(NA, (rows * cols) - num_plots)), nrow = rows, byrow = FALSE)))]
+  # if the user wants to layout the plots by column, we use the calculated rows to reorder plots and labels
+  if (!isTRUE(byrow)){
+    plots <- plots[c(t(matrix(c(1:num_plots, rep(NA, (rows * cols) - num_plots)), nrow = rows, byrow = FALSE)))]
+    labels <- labels[c(t(matrix(c(1:num_plots, rep(NA, (rows * cols) - num_plots)), nrow = rows, byrow = FALSE)))]
+  }
 
   # Align the plots (if specified)
   grobs <- align_plots(plotlist = plots, align = align, axis = axis, greedy = greedy)

tests/testthat/test_plot_grid.R

@@ -98,3 +98,17 @@ test_that("alignment", {
     plot_grid(p1, p2, ncol = 1, align = 'v', axis = "rl") + theme_map()
   )
 })
+
+
+
+test_that("labels reorder by byrow", {
+  # byrow=TRUE
+  p_list <- lapply(1:3, \(x) ggplot())
+  g <- plot_grid(plotlist = p_list, ncol = 2, labels = 1:3, byrow = TRUE)
+  expect_equal(layer_data(g, 4)$label, 2)
+
+  # byrow=FALSE
+  p_list <- lapply(1:3, \(x) ggplot())
+  g <- plot_grid(plotlist = p_list, ncol = 2, labels = 1:3, byrow = FALSE)
+  expect_equal(layer_data(g, 4)$label, 3)
+})