diff --git a/R/position-nudgestack.R b/R/position-nudgestack.R index fecbd48253..ba05873b06 100644 --- a/R/position-nudgestack.R +++ b/R/position-nudgestack.R @@ -17,9 +17,9 @@ #' #' ESM_prep <- ESM %>% #' dplyr::mutate(time = as.Date(paste0(format(time, "%Y-%m"), "-1"))) %>% -#' group_by(id, time) %>% -#' summarize(value = mean(value)) %>% -#' filter(time >= "1995-01-01" & time < "1998-01-01") +#' dplyr::group_by(id, time) %>% +#' dplyr::summarize(value = mean(value)) %>% +#' dplyr::filter(time >= "1995-01-01" & time < "1998-01-01") #' #' ggplot(data = ESM_prep, mapping = aes(x = time, y = value, fill = id)) + #' geom_col(position = position_nudgestack(x = 15))