Rename trans arguments to transform

NEWS.md

@@ -2,6 +2,27 @@
 
 * The `trans` argument in scales and secondary axes has been renamed to 
   `transform`. The `trans` argument itself is deprecated (#5558).
+* When legend titles are larger than the legend, title justification extends
+  to the placement of keys and labels (#1903).
+
+* `draw_key_label()` now better reflects the appearance of labels.
+
+* The `minor_breaks` function argument in scales can now take a function with
+  two arguments: the scale's limits and the scale's major breaks (#3583).
+
+* (internal) The `ScaleContinuous$get_breaks()` method no longer censors
+  the computed breaks.
+
+* Plot scales now ignore `AsIs` objects constructed with `I(x)`, instead of
+  invoking the identity scale. This allows these columns to co-exist with other
+  layers that need a non-identity scale for the same aesthetic. Also, it makes
+  it easy to specify relative positions (@teunbrand, #5142).
+
+* The `fill` aesthetic in many geoms now accepts grid's patterns and gradients.
+  For developers of layer extensions, this feature can be enabled by switching 
+  from `fill = alpha(fill, alpha)` to `fill = fill_alpha(fill, alpha)` when 
+  providing fills to `grid::gpar()` (@teunbrand, #3997).
+
 * The plot's title, subtitle and caption now obey horizontal text margins
   (#5533).
 

R/axis-secondary.R

@@ -178,7 +178,7 @@ AxisSecondary <- ggproto("AxisSecondary", NULL,
     }
     if (is.derived(self$name) && !is.waive(scale$name)) self$name <- scale$name
     if (is.derived(self$breaks)) self$breaks <- scale$breaks
-    if (is.waive(self$breaks)) self$breaks <- scale$transformer$breaks
+    if (is.waive(self$breaks)) self$breaks <- scale$transformation$breaks
     if (is.derived(self$labels)) self$labels <- scale$labels
     if (is.derived(self$guide)) self$guide <- scale$guide
   },
@@ -195,9 +195,9 @@ AxisSecondary <- ggproto("AxisSecondary", NULL,
       return()
     }
 
-    transformer <- scale$transformer
+    transformation <- scale$transformation %||% scale$trans
     along_range <- seq(range[1], range[2], length.out = self$detail)
-    old_range <- transformer$inverse(along_range)
+    old_range <- transformation$inverse(along_range)
 
     # Create mapping between primary and secondary range
     full_range <- self$transform_range(old_range)
@@ -214,9 +214,9 @@ AxisSecondary <- ggproto("AxisSecondary", NULL,
     self$mono_test(scale)
 
     # Get scale's original range before transformation
-    transformer <- scale$transformer
+    transformation <- scale$transformation %||% scale$trans
     along_range <- seq(range[1], range[2], length.out = self$detail)
-    old_range <- transformer$inverse(along_range)
+    old_range <- transformation$inverse(along_range)
 
     # Create mapping between primary and secondary range
     full_range <- self$transform_range(old_range)
@@ -236,8 +236,8 @@ AxisSecondary <- ggproto("AxisSecondary", NULL,
 
     # patch for date and datetime scales just to maintain functionality
     # works only for linear secondary transforms that respect the time or date transform
-    if (transformer$name %in% c("date", "time")) {
-      temp_scale <- self$create_scale(new_range, trans = transformer)
+    if (transformation$name %in% c("date", "time")) {
+      temp_scale <- self$create_scale(new_range, trans = transformation)
       range_info <- temp_scale$break_info()
       old_val_trans <- rescale(range_info$major, from = c(0, 1), to = range)
       old_val_minor_trans <- rescale(range_info$minor, from = c(0, 1), to = range)
@@ -248,7 +248,7 @@ AxisSecondary <- ggproto("AxisSecondary", NULL,
       # Map the break values back to their correct position on the primary scale
       if (!is.null(range_info$major_source)) {
         old_val <- stats::approx(full_range, old_range, range_info$major_source)$y
-        old_val_trans <- transformer$transform(old_val)
+        old_val_trans <- transformation$transform(old_val)
 
         # rescale values from 0 to 1
         range_info$major[] <- round(
@@ -264,7 +264,7 @@ AxisSecondary <- ggproto("AxisSecondary", NULL,
 
       if (!is.null(range_info$minor_source)) {
         old_val_minor <- stats::approx(full_range, old_range, range_info$minor_source)$y
-        old_val_minor_trans <- transformer$transform(old_val_minor)
+        old_val_minor_trans <- transformation$transform(old_val_minor)
 
         range_info$minor[] <- round(
           rescale(
@@ -298,7 +298,7 @@ AxisSecondary <- ggproto("AxisSecondary", NULL,
                      labels = self$labels,
                      limits = range,
                      expand = c(0, 0),
-                     transformer = trans
+                     transformation = trans
     )
     scale$train(range)
     scale

R/coord-transform.R

@@ -190,8 +190,8 @@ transform_value <- function(trans, value, range) {
 # TODO: can we merge this with view_scales_from_scale()?
 view_scales_from_scale_with_coord_trans <- function(scale, coord_limits, trans, expand = TRUE) {
   expansion <- default_expansion(scale, expand = expand)
-  transformer <- scale$transformer %||% transform_identity()
-  coord_limits <- coord_limits %||% transformer$inverse(c(NA, NA))
+  transformation <- scale$transformation %||% scale$trans %||% transform_identity()
+  coord_limits <- coord_limits %||% transformation$inverse(c(NA, NA))
   scale_limits <- scale$get_limits()
 
   if (scale$is_discrete()) {
@@ -204,7 +204,7 @@ view_scales_from_scale_with_coord_trans <- function(scale, coord_limits, trans,
     )
   } else {
     # transform user-specified limits to scale transformed space
-    coord_limits <- transformer$transform(coord_limits)
+    coord_limits <- transformation$transform(coord_limits)
     continuous_ranges <- expand_limits_continuous_trans(
       scale_limits,
       expansion,

R/guide-axis-logticks.R

@@ -147,20 +147,20 @@ GuideAxisLogticks <- ggproto(
 
     # Reconstruct a transformation if user has prescaled data
     if (!is.null(params$prescale_base)) {
-      trans_name <- scale$scale$transformer$name
+      trans_name <- scale$scale$transformation$name
       if (trans_name != "identity") {
         cli::cli_warn(paste0(
           "The {.arg prescale_base} argument will override the scale's ",
           "{.field {trans_name}} transformation in log-tick positioning."
         ))
       }
-      transformer <- transform_log(base = params$prescale_base)
+      transformation <- transform_log(base = params$prescale_base)
     } else {
-      transformer <- scale$scale$transformer
+      transformation <- scale$scale$transformation %||% scale$scale$trans
     }
 
     # Reconstruct original range
-    limits <- transformer$inverse(scale$get_limits())
+    limits <- transformation$inverse(scale$get_limits())
     has_negatives <- any(limits <= 0)
 
     if (!has_negatives) {
@@ -188,7 +188,7 @@ GuideAxisLogticks <- ggproto(
     }
 
     # Set ticks back into transformed space
-    ticks  <- transformer$transform(c(tens, fives, ones))
+    ticks  <- transformation$transform(c(tens, fives, ones))
     nticks <- c(length(tens), length(fives), length(ones))
 
     logkey <- data_frame0(