Allow justification of legends larger than the available space (#4437)

Author: thomasp85

NEWS.md

@@ -1,5 +1,10 @@
 # ggplot2 (development version)
 
+* Fix a bug in legend justification where justification was lost of the legend
+  dimensions exceeded the available size (@thomasp85, #3635)
+
+* Fix calculation of confidence interval for locfit smoothing (@topepo, #3806)
+
 * Fix bug in `scale_[x|y]_date()` where custom breaks functions that resulted in
   fracional dates would get misaligned (@thomasp85, #3965)
 

R/plot-build.r

@@ -199,13 +199,28 @@ ggplot_gtable.ggplot_built <- function(data) {
       ypos <- theme$legend.position[2]
 
       # x and y are specified via theme$legend.position (i.e., coords)
-      legend_box <- editGrob(legend_box,
-        vp = viewport(x = xpos, y = ypos, just = c(xjust, yjust),
-          height = legend_height, width = legend_width))
+      legend_box <- editGrob(
+        legend_box,
+        vp = viewport(
+          x = xpos,
+          y = ypos,
+          just = c(xjust, yjust),
+          height = legend_height,
+          width = legend_width
+        )
+      )
     } else {
       # x and y are adjusted using justification of legend box (i.e., theme$legend.justification)
-      legend_box <- editGrob(legend_box,
-        vp = viewport(x = xjust, y = yjust, just = c(xjust, yjust)))
+      legend_box <- editGrob(
+        legend_box,
+        vp = viewport(
+          x = xjust,
+          y = yjust,
+          just = c(xjust, yjust),
+          height = legend_height,
+          width = legend_width
+        )
+      )
       legend_box <- gtable_add_rows(legend_box, unit(yjust, 'null'))
       legend_box <- gtable_add_rows(legend_box, unit(1 - yjust, 'null'), 0)
       legend_box <- gtable_add_cols(legend_box, unit(xjust, 'null'), 0)