rename range() function of coord to backtransform_range()

Author: clauswilke

R/coord-.r

@@ -73,8 +73,12 @@ Coord <- ggproto("Coord",
     )
   },
 
-  range = function(panel_params) {
-    return(list(x = panel_params$x.range, y = panel_params$y.range))
+  # transform range given in transformed coordinates
+  # back into range in given in (possibly scale-transformed)
+  # data coordinates
+  backtransform_range = function(panel_params) {
+    warning("range backtransformation not implemented in this coord; plot may be wrong.")
+    list(x = panel_params$x.range, y = panel_params$y.range)
   },
 
   setup_panel_params = function(scale_x, scale_y, params = list()) {

R/coord-cartesian-.r

@@ -83,6 +83,10 @@ CoordCartesian <- ggproto("CoordCartesian", Coord,
     dist_euclidean(x, y) / max_dist
   },
 
+  backtransform_range = function(panel_params) {
+    list(x = panel_params$x.range, y = panel_params$y.range)
+  },
+
   transform = function(data, panel_params) {
     rescale_x <- function(data) rescale(data, from = panel_params$x.range)
     rescale_y <- function(data) rescale(data, from = panel_params$y.range)

R/coord-flip.r

@@ -44,7 +44,7 @@ CoordFlip <- ggproto("CoordFlip", CoordCartesian,
     CoordCartesian$transform(data, panel_params)
   },
 
-  range = function(panel_params) {
+  backtransform_range = function(panel_params) {
     list(x = panel_params$y.range, y = panel_params$x.range)
   },
 

R/coord-munch.r

@@ -15,7 +15,7 @@ coord_munch <- function(coord, data, range, segment_length = 0.01) {
   if (coord$is_linear()) return(coord$transform(data, range))
 
   # range has theta and r values; get corresponding x and y values
-  ranges <- coord$range(range)
+  ranges <- coord$backtransform_range(range)
 
   # Convert any infinite locations into max/min
   # Only need to work with x and y because for munching, those are the

R/coord-polar.r

@@ -90,7 +90,7 @@ CoordPolar <- ggproto("CoordPolar", Coord,
     dist_polar(r, theta)
   },
 
-  range = function(self, panel_params) {
+  backtransform_range = function(self, panel_params) {
     setNames(
       list(panel_params$theta.range, panel_params$r.range),
       c(self$theta, self$r)

R/coord-transform.r

@@ -119,6 +119,13 @@ CoordTrans <- ggproto("CoordTrans", Coord,
     dist_euclidean(self$trans$x$transform(x), self$trans$y$transform(y)) / max_dist
   },
 
+  backtransform_range = function(self, panel_params) {
+    list(
+      x = self$trans$x$inverse(panel_params$x.range),
+      y = self$trans$y$inverse(panel_params$y.range)
+    )
+  },
+
   transform = function(self, data, panel_params) {
     trans_x <- function(data) transform_value(self$trans$x, data, panel_params$x.range)
     trans_y <- function(data) transform_value(self$trans$y, data, panel_params$y.range)

R/geom-abline.r

@@ -111,7 +111,7 @@ geom_abline <- function(mapping = NULL, data = NULL,
 #' @export
 GeomAbline <- ggproto("GeomAbline", Geom,
   draw_panel = function(data, panel_params, coord) {
-    ranges <- coord$range(panel_params)
+    ranges <- coord$backtransform_range(panel_params)
 
     data$x    <- ranges$x[1]
     data$xend <- ranges$x[2]

R/geom-hline.r

@@ -37,7 +37,7 @@ geom_hline <- function(mapping = NULL, data = NULL,
 #' @export
 GeomHline <- ggproto("GeomHline", Geom,
   draw_panel = function(data, panel_params, coord) {
-    ranges <- coord$range(panel_params)
+    ranges <- coord$backtransform_range(panel_params)
 
     data$x    <- ranges$x[1]
     data$xend <- ranges$x[2]

R/geom-vline.r

@@ -37,7 +37,7 @@ geom_vline <- function(mapping = NULL, data = NULL,
 #' @export
 GeomVline <- ggproto("GeomVline", Geom,
   draw_panel = function(data, panel_params, coord) {
-    ranges <- coord$range(panel_params)
+    ranges <- coord$backtransform_range(panel_params)
 
     data$x    <- data$xintercept
     data$xend <- data$xintercept