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