fix inside guide box area

Yunuuuu · Yunuuuu · commit 51889d458e7c · 2024-11-29T19:55:23.000+08:00
diff --git a/R/plot-build.R b/R/plot-build.R
@@ -527,7 +527,7 @@ table_add_legends <- function(table, legends, theme) {
   } else { # to be consistent with original gtable layout
     table <- gtable_add_grob(
       table, zeroGrob(), clip = "off",
-      t = 1, b = 1, l = place$l, r = place$r,
+      t = place$t, b = place$b, l = place$l, r = place$r,
       name = "guide-box-inside"
     )
   }

Original file line number	Diff line number	Diff line change
`@@ -527,7 +527,7 @@ table_add_legends <- function(table, legends, theme) {`
`527`	`527`	`} else { # to be consistent with original gtable layout`
`528`	`528`	`table <- gtable_add_grob(`
`529`	`529`	`table, zeroGrob(), clip = "off",`
`530`		`- t = 1, b = 1, l = place$l, r = place$r,`
	`530`	`+ t = place$t, b = place$b, l = place$l, r = place$r,`
`531`	`531`	`name = "guide-box-inside"`
`532`	`532`	`)`
`533`	`533`	`}`