Use tsbox for converting ts object to tibble

Author: ThomasKnecht

DESCRIPTION

@@ -56,7 +56,7 @@ Suggests:
     svglite (>= 1.2.0.9001),
     testthat (>= 2.1.0),
     vdiffr (>= 0.3.0),
-    zoo
+    tsbox
 Enhances: sp
 License: GPL-2 | file LICENSE
 URL: http://ggplot2.tidyverse.org, https://github.com/tidyverse/ggplot2

R/position-nudgestack.R

@@ -13,20 +13,15 @@
 #'   This is useful if you're rotating both the plot and legend.
 #' @export
 #' @examples
-#' ESM <- data.frame(
-#'   as.matrix(EuStockMarkets),
-#'   date = as.Date(paste(1, zoo::as.yearmon(time(EuStockMarkets))),
-#'                  format = "%d %b %Y"
-#'   )
-#' )
+#' ESM <- tsbox::ts_tbl(EuStockMarkets)
 #'
 #' ESM_prep <- ESM %>%
-#'   tidyr::gather(key = key, value = value, -date) %>%
-#'   group_by(date, key) %>%
+#'   dplyr::mutate(time = as.Date(paste0(format(time, "%Y-%m"),"-1"))) %>%
+#'   group_by(id, time) %>%
 #'   summarize(value = mean(value)) %>%
-#'   filter(date >= "1995-01-01" & date < "1998-01-01")
+#'   filter(time >= "1995-01-01" & time < "1998-01-01")
 #'
-#' ggplot(data = ESM_prep, mapping = aes(x = date, y = value, fill = key)) +
+#' ggplot(data = ESM_prep, mapping = aes(x = time, y = value, fill = id)) +
 #'   geom_col(position = position_nudgestack(x = 15))
 position_nudgestack <- function(x = 0, y = 0, vjust = 1, reverse = FALSE) {
   ggproto(NULL, PositionNudgeStack,