1#' Don't adjust position
2#'
3#' @family position adjustments
4#' @export
5position_identity <- function() {
6  PositionIdentity
7}
8
9#' @rdname ggplot2-ggproto
10#' @format NULL
11#' @usage NULL
12#' @export
13PositionIdentity <- ggproto("PositionIdentity", Position,
14  compute_layer = function(self, data, params, layout) {
15    data
16  }
17)
18