Add time series example

Author: Thomas Knecht

R/position-nudgestack.R

@@ -13,6 +13,11 @@
 #'   This is useful if you're rotating both the plot and legend.
 #' @export
 #' @examples
+<<<<<<< HEAD
+=======
+#' library(dplyr)
+#' library(ggplot2)
+>>>>>>> Add time series example
 #' ESM <- data.frame(
 #'   as.matrix(EuStockMarkets),
 #'   date = as.Date(paste(1, zoo::as.yearmon(time(EuStockMarkets))),
@@ -24,7 +29,11 @@
 #'   tidyr::gather(key = key, value = value, -date) %>%
 #'   group_by(date, key) %>%
 #'   summarize(value = mean(value)) %>%
+<<<<<<< HEAD
 #'   filter(date >= "1995-01-01" & date < "1998-01-01")
+=======
+#'   filter(date >= "1995-01-01" & date <= "1997-12-01")
+>>>>>>> Add time series example
 #'
 #' ggplot(data = ESM_prep, mapping = aes(x = date, y = value, fill = key)) +
 #'   geom_col(position = position_nudgestack(x = 15))