remove the requirement of ggplot2 >=3.5.0

Author: Yunuuuu

DESCRIPTION

@@ -19,7 +19,7 @@ Description: The 'ggplot2' package provides a strong API for sequentially
 License: MIT + file LICENSE
 Encoding: UTF-8
 Imports: 
-    ggplot2 (>= 3.5.0),
+    ggplot2 (>= 3.0.0),
     gtable,
     grid,
     stats,

NAMESPACE

@@ -92,7 +92,10 @@ importFrom(farver,get_channel)
 importFrom(farver,set_channel)
 importFrom(ggplot2,aes)
 importFrom(ggplot2,calc_element)
+importFrom(ggplot2,element_blank)
+importFrom(ggplot2,element_grob)
 importFrom(ggplot2,element_line)
+importFrom(ggplot2,element_render)
 importFrom(ggplot2,element_text)
 importFrom(ggplot2,find_panel)
 importFrom(ggplot2,geom_blank)
@@ -123,12 +126,14 @@ importFrom(grDevices,is.raster)
 importFrom(grid,absolute.size)
 importFrom(grid,convertHeight)
 importFrom(grid,convertWidth)
+importFrom(grid,editGrob)
 importFrom(grid,gTree)
 importFrom(grid,grid.draw)
 importFrom(grid,grid.newpage)
 importFrom(grid,grobHeight)
 importFrom(grid,grobTree)
 importFrom(grid,grobWidth)
+importFrom(grid,heightDetails)
 importFrom(grid,is.grob)
 importFrom(grid,is.unit)
 importFrom(grid,pushViewport)
@@ -138,7 +143,9 @@ importFrom(grid,unit)
 importFrom(grid,unit.c)
 importFrom(grid,unit.pmax)
 importFrom(grid,upViewport)
+importFrom(grid,valid.just)
 importFrom(grid,viewport)
+importFrom(grid,widthDetails)
 importFrom(gtable,gtable)
 importFrom(gtable,gtable_add_cols)
 importFrom(gtable,gtable_add_grob)
@@ -149,6 +156,7 @@ importFrom(gtable,is.gtable)
 importFrom(stats,ave)
 importFrom(stats,na.omit)
 importFrom(utils,as.roman)
+importFrom(utils,getFromNamespace)
 importFrom(utils,modifyList)
 importFrom(utils,str)
 importFrom(utils,tail)

R/guides.R

@@ -60,28 +60,123 @@ collapse_guides <- function(guides) {
   guides
 }
 
+#' @importFrom utils getFromNamespace
 #' @importFrom ggplot2 calc_element
-assemble_guides <- function(guides,  theme) {
-  position <- theme$legend.position %||% "right"
-  if (length(position) == 2) {
-    warning("Manual legend position not possible for collected guides. Defaulting to 'right'", call. = FALSE)
-    position <- "right"
-  }
+assemble_guides <- function(guides, position, theme) {
   # https://github.com/tidyverse/ggplot2/blob/57ba97fa04dadc6fd73db1904e39a09d57a4fcbe/R/guides-.R#L512
   theme$legend.spacing <- theme$legend.spacing %||% unit(0.5, "lines")
   theme$legend.spacing.y <- calc_element("legend.spacing.y", theme)
   theme$legend.spacing.x <- calc_element("legend.spacing.x", theme)
+
   # for every position, collect all individual guides and arrange them
   # into a guide box which will be inserted into the main gtable
-  Guides <- utils::getFromNamespace("Guides", "ggplot2")
-  Guides$package_box(guides, position, theme)
+  Guides <- getFromNamespace("Guides", "ggplot2")
+  package_box <- .subset2(Guides, "package_box") %||% package_box
+  package_box(guides, position, theme)
+}
+
+#' @importFrom grid valid.just editGrob
+package_box <- function(guides, guide_pos, theme) {
+  theme <- complete_guide_theme(guide_pos, theme)
+  guides <- guides_build(guides, theme)
+
+  # Set the justification of the legend box
+  # First value is xjust, second value is yjust
+  just <- valid.just(calc_element("legend.justification", theme))
+  xjust <- just[1]
+  yjust <- just[2]
+  guides <- editGrob(guides,
+    vp = viewport(x = xjust, y = yjust, just = c(xjust, yjust))
+  )
+  guides <- gtable_add_rows(guides, unit(yjust, "null"))
+  guides <- gtable_add_rows(guides, unit(1 - yjust, "null"), 0)
+  guides <- gtable_add_cols(guides, unit(xjust, "null"), 0)
+  guides <- gtable_add_cols(guides, unit(1 - xjust, "null"))
+  guides
+}
+
+#' @importFrom ggplot2 calc_element
+complete_guide_theme <- function(guide_pos, theme) {
+  if (guide_pos %in% c("top", "bottom")) {
+    theme$legend.box <- calc_element("legend.box", theme) %||% "horizontal"
+    theme$legend.direction <- calc_element("legend.direction", theme) %||%
+      "horizontal"
+    theme$legend.box.just <- calc_element("legend.box.just", theme) %||%
+      c("center", "top")
+  } else {
+    theme$legend.box <- calc_element("legend.box", theme) %||% "vertical"
+    theme$legend.direction <- calc_element("legend.direction", theme) %||%
+      "vertical"
+    theme$legend.box.just <- calc_element("legend.box.just", theme) %||%
+      c("left", "top")
+  }
+  theme
+}
+
+#' @importFrom gtable gtable_width gtable_height gtable gtable_add_grob
+#' @importFrom grid editGrob heightDetails widthDetails valid.just unit.c unit
+#' @importFrom ggplot2 margin element_grob element_blank calc_element element_render
+guides_build <- function(guides, theme) {
+  legend.spacing.y <- .subset2(theme, "legend.spacing.y")
+  legend.spacing.x <- .subset2(theme, "legend.spacing.x")
+  legend.box.margin <- calc_element("legend.box.margin", theme) %||% margin()
+
+  widths <- exec(unit.c, !!!lapply(guides, gtable_width))
+  heights <- exec(unit.c, !!!lapply(guides, gtable_height))
+
+  just <- valid.just(calc_element("legend.box.just", theme))
+  xjust <- just[1]
+  yjust <- just[2]
+  vert <- identical(calc_element("legend.box", theme), "horizontal")
+  guides <- lapply(guides, function(g) {
+    editGrob(g, vp = viewport(
+      x = xjust, y = yjust, just = c(xjust, yjust),
+      height = if (vert) heightDetails(g) else 1,
+      width = if (!vert) widthDetails(g) else 1
+    ))
+  })
+  guide_ind <- seq(by = 2, length.out = length(guides))
+  sep_ind <- seq(2, by = 2, length.out = length(guides) - 1)
+  if (vert) {
+    heights <- max(heights)
+    if (length(widths) != 1) {
+      w <- unit(rep_len(0, length(widths) * 2 - 1), "mm")
+      w[guide_ind] <- widths
+      w[sep_ind] <- legend.spacing.x
+      widths <- w
+    }
+  } else {
+    widths <- max(widths)
+    if (length(heights) != 1) {
+      h <- unit(rep_len(0, length(heights) * 2 - 1), "mm")
+      h[guide_ind] <- heights
+      h[sep_ind] <- legend.spacing.y
+      heights <- h
+    }
+  }
+  widths <- unit.c(legend.box.margin[4], widths, legend.box.margin[2])
+  heights <- unit.c(legend.box.margin[1], heights, legend.box.margin[3])
+  guides <- gtable_add_grob(
+    gtable(widths, heights, name = "guide-box"),
+    guides,
+    t = 1 + if (!vert) guide_ind else 1,
+    l = 1 + if (vert) guide_ind else 1,
+    name = "guides"
+  )
+
+  gtable_add_grob(
+    guides,
+    element_render(theme, "legend.box.background"),
+    t = 1, l = 1, b = -1, r = -1,
+    z = -Inf, clip = "off", name = "legend.box.background"
+  )
 }
 
 #' @importFrom ggplot2 calc_element find_panel
 #' @importFrom gtable gtable_width gtable_height
 #' @importFrom grid unit.c
-attach_guides <- function(table, guides, theme) {
-  guide_areas <- grepl('panel-guide_area', table$layout$name)
+attach_guides <- function(table, guides, position, theme) {
+  guide_areas <- grepl("panel-guide_area", table$layout$name)
   if (any(guide_areas)) {
     area_ind <- which(guide_areas)
     if (length(area_ind) != 1) {
@@ -91,14 +186,8 @@ attach_guides <- function(table, guides, theme) {
     return(table)
   }
   p_loc <- find_panel(table)
-  position <- theme$legend.position %||% "right"
-  if (length(position) == 2) {
-    warning('Manual position of collected guides not supported', call. = FALSE)
-    position <- "right"
-  }
-
-  spacing <- calc_element("legend.box.spacing", theme) %||% unit(0.2, 'cm')
-  legend_width  <- gtable_width(guides)
+  spacing <- calc_element("legend.box.spacing", theme) %||% unit(0.2, "cm")
+  legend_width <- gtable_width(guides)
   legend_height <- gtable_height(guides)
   if (position == "left") {
     table <- gtable_add_grob(table, guides, clip = "off", t = p_loc$t,

R/plot_patchwork.R

@@ -222,8 +222,13 @@ build_patchwork <- function(x, guides = 'auto') {
       if (!attr(theme, 'complete')) {
         theme <- theme_get() + theme
       }
-      guide_grobs <- assemble_guides(guide_grobs, theme)
-      gt_new <- attach_guides(gt_new, guide_grobs, theme)
+      position <- theme$legend.position %||% "right"
+      if (length(position) == 2) {
+        warning("Manual legend position not possible for collected guides. Defaulting to 'right'", call. = FALSE)
+        position <- "right"
+      }
+      guide_grobs <- assemble_guides(guide_grobs, position, theme)
+      gt_new <- attach_guides(gt_new, guide_grobs, position, theme)
     }
   } else {
     gt_new$collected_guides <- guide_grobs