Add coordinate system for stacked plots

NAMESPACE

@@ -4,6 +4,7 @@ export(add_lines)
 export(calculate_timing)
 export(check_quality)
 export(convplot)
+export(coord_stack)
 export(geom_token)
 export(geom_turn)
 export(GeomToken)
@@ -17,3 +18,5 @@ export(theme_turnPlot)
 export(tokenize)
 import(ggplot2)
 import(viridis)
+importFrom(ggplot2,Geom)
+importFrom(ggplot2,ggproto)

R/coord-stack.R

@@ -0,0 +1,26 @@
+#' Coordinate system that stacks a wide plot to multiple layers
+#'
+#' @param width Width of the stacked layers in seconds
+#' @export
+#' @inheritParams ggplot2::coord_trans
+coord_stack <- function(width, ...) {
+  width <- width * 1000 # convert to ms
+  ggplot2::coord_trans(x = stacking_x_axis(width), ...)
+}
+
+
+stacking_x_axis <- function(width){
+  force(width)
+  trans <- function(x) {
+    x <- x %% width
+    x
+  }
+
+  scales::trans_new(
+    name = "stackx",
+    transform = trans,
+    inverse = function(x){
+      x/width
+    }
+  )
+}

R/geom_token.R

@@ -26,9 +26,8 @@ geom_token <- function(data, mapping = NULL,
 
 #' GeomToken
 #'
-#' @rdname ggplot2-ggproto
-#' @format NULL
-#' @usage NULL
+#' @rdname ggproto
+#' @importFrom ggplot2 ggproto Geom
 #' @export
 GeomToken <- ggproto(
   "GeomToken", Geom,

R/geom_turn.R

@@ -26,9 +26,8 @@ geom_turn <- function(mapping = NULL, data = NULL,
 
 #' GeomTurn
 #'
-#' @rdname ggplot2-ggproto
-#' @format NULL
-#' @usage NULL
+#' @rdname ggproto
+#' @importFrom ggplot2 ggproto Geom
 #' @export
 GeomTurn <- ggproto(
   "GeomTurn", Geom,