Correct aspect ratios for maps

tidyverse · Dec 11, 2009 · ee57525 · ee57525
1 parent d387066
commit ee57525
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/NEWS b/NEWS
@@ -50,6 +50,7 @@ Bug fixes
 * coord_cartesian now correctly sets limits when one or both of the position
   scales are non-linear.  (fixes #17)
 * coord_equal: now works with non-linear scales (fixes #13)
+* coord_map now sets aspect ratio correctly (fixes #4)
 * coord_trans now respects scale expand parameter (expansion occurs after 
   transformation) (fixes #14)
 * facet_grid with scales = "free" and space = "free" now calculates space 

diff --git a/R/coord-map.r b/R/coord-map.r
@@ -22,6 +22,10 @@ CoordMap <- proto(Coord, {
     out
   }
 
+  compute_aspect <- function(., ranges) {
+    diff(ranges$y.range) / diff(ranges$x.range)
+  }
+
 
   mproject <- function(., x, y, orientation) {    
     suppressWarnings(do.call("mapproject",  list(