Fix duplicated x scale and expose cap width in PK line plots

NAMESPACE

@@ -40,6 +40,7 @@ export(get_mmrm_results)
 export(gg_km)
 export(gg_lineplot)
 export(gg_mmrm_lineplot)
+export(gg_pkc_boxplot)
 export(gg_pkc_lineplot)
 export(label_roche_number)
 export(label_roche_percent)

NEWS.md

@@ -2,6 +2,14 @@
 
 # crane 0.4.0
 
+* Added `gg_pkc_boxplot()` to plot Pharmacokinetic concentrations as box plots, with a selectable whisker method (`"percentile"`, `"tukey"`, or `"minmax"`), outlier detection, and an optional mean marker. (#322)
+
+* `gg_pkc_lineplot()` now adds a single x scale instead of two, so it no longer reports "Scale for x is already present" on every call with a numeric `time_var`. The `expand` setting that the discarded scale carried is now applied. (#322)
+
+* `gg_pkc_lineplot()` gains an `x_breaks` argument to set the breaks of a numeric x-axis, for time ranges too wide to label every timepoint. The default `NULL` keeps a break on every observed timepoint. (#322)
+
+* `gg_pkc_lineplot()` and `gg_lineplot()` gain an `errorbar_width` argument to set the width of the error bar caps, previously fixed at `0.45`. (#322)
+
 * `modify_split_caption()` now errors when given a table that was never split, instead of silently returning it unchanged. A plain table has no split level to build a subtitle from; the message points at `split_by_rows = list(variable_level = ...)`. Pages of a row-number split are still skipped silently, as before. (#318)
 
 * Added `add_label_column()` to split a `{gtsummary}` table's row labels into a new left label column (`label0`) and the existing `label` column, computing the new column from an expression evaluated in the table body. This is the `strata_location = "new_column"` layout of `tbl_shift()` exposed as a standalone step for nested count and shift tables. (#314)

R/gg_lineplot.R

@@ -26,6 +26,9 @@
 #'   Horizontal jitter width applied to points, lines and error bars together
 #'   so they stay aligned. `0` (default) disables jittering and uses dodging
 #'   only. A small value such as `0.1` helps separate overlapping groups.
+#' @param errorbar_width (`numeric`)\cr
+#'   Width of the horizontal caps on the variability error bars. Default is
+#'   `0.45`. Set to `0` for no caps. Ignored when `variability = "none"`.
 #'
 #' @return A `ggplot` object of class `crane_gg_line`.
 #'
@@ -92,7 +95,8 @@ gg_lineplot <- function(data,
                         variability = c("ci", "sd", "se", "iqr", "none"),
                         conf_level = 0.95,
                         show_n = FALSE,
-                        jitter = 0) {
+                        jitter = 0,
+                        errorbar_width = 0.45) {
   # 1. Argument Matching and Validation
   stat <- match.arg(stat)
   variability <- match.arg(variability)
@@ -121,9 +125,8 @@ gg_lineplot <- function(data,
     group = {{ group }}
   )
 
-  # change from factor to numeric
-  # x can be factor or numeric - factor allow for correct n of decimals
-  # in the summary table
+  # x can be supplied as factor or numeric; convert factor to numeric when
+  # possible, otherwise keep it as a factor for discrete plotting
   if (!is.numeric(data[[x]])) {
     # 1. "Test" the conversion silently to see if it results in NAs
     test_numeric <- suppressWarnings(as.numeric(as.character(data[[x]])))
@@ -138,15 +141,6 @@ gg_lineplot <- function(data,
         c("i" = "Categorical X-axis detected. Leaving as factor for discrete plotting.")
       )
     }
-  } else {
-    cli::cli_inform(
-      c(
-        "i" = paste0(
-          "We encourage to supply `x` as a factor, since it supports ",
-          "correct decimals formatting in the summary table."
-        )
-      )
-    )
   }
 
   # 2. Data Preprocessing
@@ -219,7 +213,7 @@ gg_lineplot <- function(data,
   # 4. Add Variability Layer conditionally to avoid drawing degenerate lines
   if (variability != "none") {
     p <- p |>
-      gg_add_stats(stat, variability, conf_level, position = pd)
+      gg_add_stats(stat, variability, conf_level, position = pd, width = errorbar_width)
   }
 
   # 5. Theming