Merge pull request #5136 from teunbrand/missing_linewidth_scales

Manual and identity scales for `linewidth`

Author: teunbrand

NAMESPACE

@@ -582,6 +582,8 @@ export(scale_linewidth_continuous)
 export(scale_linewidth_date)
 export(scale_linewidth_datetime)
 export(scale_linewidth_discrete)
+export(scale_linewidth_identity)
+export(scale_linewidth_manual)
 export(scale_linewidth_ordinal)
 export(scale_radius)
 export(scale_shape)

NEWS.md

@@ -1,5 +1,7 @@
 # ggplot2 (development version)
 
+* Added `scale_linewidth_manual()` and `scale_linewidth_identity()` to support
+  the `linewidth` aesthetic (@teunbrand, #5050).
 * Automatic breaks in `scale_*_binned()` should no longer be out-of-bounds,
   and automatic limits expand to include these (@teunbrand, #5095, #5100).
 * Renamed computed aesthetic in `stat_ecdf()` to `ecdf`, to prevent incorrect

R/scale-identity.r

@@ -95,6 +95,15 @@ scale_linetype_identity <- function(..., guide = "none") {
   sc
 }
 
+#' @rdname scale_identity
+#' @export
+scale_linewidth_identity <- function(..., guide = "none") {
+  sc <- continuous_scale("linewidth", "identity", identity_pal(), ...,
+                         guide = guide, super = ScaleContinuousIdentity)
+
+  sc
+}
+
 #' @rdname scale_identity
 #' @export
 scale_alpha_identity <- function(..., guide = "none") {

R/scale-manual.r

@@ -110,6 +110,12 @@ scale_linetype_manual <- function(..., values, breaks = waiver(), na.value = "bl
   manual_scale("linetype", values, breaks, ..., na.value = na.value)
 }
 
+#' @rdname scale_manual
+#' @export
+scale_linewidth_manual <- function(..., values, breaks = waiver(), na.value = NA) {
+  manual_scale("linewidth", values, breaks, ..., na.value = na.value)
+}
+
 #' @rdname scale_manual
 #' @export
 scale_alpha_manual <- function(..., values, breaks = waiver(), na.value = NA) {
@@ -122,7 +128,6 @@ scale_discrete_manual <- function(aesthetics, ..., values, breaks = waiver()) {
   manual_scale(aesthetics, values, breaks, ...)
 }
 
-
 manual_scale <- function(aesthetic, values = NULL, breaks = waiver(), ..., limits = NULL) {
   # check for missing `values` parameter, in lieu of providing
   # a default to all the different scale_*_manual() functions