diff --git a/R/g_spaghettiplot.R b/R/g_spaghettiplot.R index 69d254e3..9046d69a 100644 --- a/R/g_spaghettiplot.R +++ b/R/g_spaghettiplot.R @@ -279,7 +279,7 @@ g_spaghettiplot <- function(data, select(!!sym(biomarker_var_label)) %>% unique() %>% magrittr::extract2(1) - gtitle <- paste0(biomarker1, unit1, value_var, " Values by Treatment @ Visits") + gtitle <- paste0(biomarker1, unit1, " Values by Treatment @ Visits") gxlab <- if (is.null(attr(data[[time]], "label"))) time else attr(data[[time]], "label") gylab <- paste0(biomarker1, " ", value_var, " Values")