Coord polar fix (#1856)

thomasp85 · hadley · commit 36e08b696f38 · 2016-10-24T10:10:21.000-05:00
* Switch position in case of coord_polar(theta='y')
diff --git a/R/layout.R b/R/layout.R
@@ -129,7 +129,7 @@ Layout <- ggproto("Layout", NULL,
       coord$train(list(x = self$panel_scales$x[[ix]], y = self$panel_scales$y[[iy]]))
     }
     # Switch position of all scales if CoordFlip
-    if (inherits(coord, "CoordFlip")) {
+    if (inherits(coord, "CoordFlip") || (inherits(coord, "CoordPolar") && coord$theta == "y")) {
       lapply(self$panel_scales$x, function(scale) {
         scale$position <- if (scale$position == "top") "bottom" else "top"
       })

Original file line number	Diff line number	Diff line change
`@@ -129,7 +129,7 @@ Layout <- ggproto("Layout", NULL,`
`129`	`129`	`coord$train(list(x = self$panel_scales$x[[ix]], y = self$panel_scales$y[[iy]]))`
`130`	`130`	`}`
`131`	`131`	`# Switch position of all scales if CoordFlip`
`132`		`- if (inherits(coord, "CoordFlip")) {`
	`132`	`+ if (inherits(coord, "CoordFlip") \|\| (inherits(coord, "CoordPolar") && coord$theta == "y")) {`
`133`	`133`	`lapply(self$panel_scales$x, function(scale) {`
`134`	`134`	`scale$position <- if (scale$position == "top") "bottom" else "top"`
`135`	`135`	`})`