diff --git a/R/position-nudgestack.R b/R/position-nudgestack.R index 0df18b91b8..e7bf2f4138 100644 --- a/R/position-nudgestack.R +++ b/R/position-nudgestack.R @@ -18,6 +18,7 @@ #' ESM_prep <- ESM %>% #' tidyr::gather(key = key, value = value, -date) %>% #' group_by(date, key) %>% +#' summarize(value = mean(value)) %>% #' filter(date >= "1995-01-01" & date < "1998-01-01") #' #' ggplot(data = ESM_prep, mapping = aes(x = time, y = value, fill = id)) +