Improve quantile docs (#6654)

* interpret logical `linewidth` as integer

* clarify documentation

* add news bullet

Author: teunbrand

NEWS.md

@@ -1,7 +1,8 @@
 # ggplot2 (development version)
 
-### Bug fixes
-
+* Logical values for the linetype aesthetic will be interpreted numerically,
+  so that `linetype = FALSE` becomes 0/'blank' and `linetype = TRUE` becomes 
+  1/'solid' (@teunbrand, #6641)
 * Out-of-bounds datapoints used as padding by `stat_align()` now get removed
   silently rather than verbosely (@teunbrand, #6667)
 * Fixed bug where `stat_bin(boundary)` was ignored (#6682).

R/geom-violin.R

@@ -24,7 +24,8 @@
 #' @param quantile.colour,quantile.color,quantile.linewidth,quantile.linetype
 #'   Default aesthetics for the quantile lines. Set to `NULL` to inherit from
 #'   the data's aesthetics. By default, quantile lines are hidden and can be
-#'   turned on by changing `quantile.linetype`.
+#'   turned on by changing `quantile.linetype`. Quantile values can be set
+#'   using the `quantiles` argument when using `stat = "ydensity"` (default).
 #' @param draw_quantiles `r lifecycle::badge("deprecated")` Previous
 #'   specification of drawing quantiles.
 #' @export

R/stat-ydensity.R

@@ -137,8 +137,11 @@ StatYdensity <- ggproto(
 #' @param drop Whether to discard groups with less than 2 observations
 #'   (`TRUE`, default) or keep such groups for position adjustment purposes
 #'   (`FALSE`).
-#' @param quantiles If not `NULL` (default), compute the `quantile` variable
-#'   and draw horizontal lines at the given quantiles in `geom_violin()`.
+#' @param quantiles A numeric vector with numbers between 0 and 1 to indicate
+#'   quantiles marked by the `quantile` computed variable. The default marks the
+#'   25th, 50th and 75th percentiles. The display of quantiles can be
+#'   turned on by setting `quantile.linetype` to non-blank when using
+#'   `geom = "violin"` (default).
 #'
 #' @eval rd_computed_vars(
 #'   density = "Density estimate.",

R/utilities-grid.R

@@ -41,8 +41,13 @@ gg_par <- function(..., stroke = NULL, pointsize = NULL) {
     stroke[is.na(stroke)] <- 0
     args$fontsize <- pointsize * .pt + stroke * .stroke / 2
   }
-  if (!is.null(args$lty) && anyNA(args$lty)) {
-    args$lty[is.na(args$lty)] <- if (is.character(args$lty)) "blank" else 0
+  if (!is.null(args$lty)) {
+    if (is.logical(args$lty)) {
+      args$lty <- as.integer(args$lty)
+    }
+    if (anyNA(args$lty)) {
+      args$lty[is.na(args$lty)] <- if (is.character(args$lty)) "blank" else 0
+    }
   }
 
   inject(gpar(!!!args))