Vertical legend lines for pointrange and linerange.

Author: hadley

NAMESPACE

@@ -247,6 +247,7 @@ export(draw_key_rect)
 export(draw_key_smooth)
 export(draw_key_text)
 export(draw_key_vline)
+export(draw_key_vpath)
 export(element_blank)
 export(element_grob)
 export(element_line)

NEWS.md

@@ -164,6 +164,9 @@ All defunct functions have been removed.
   border has been tweaked to be more visible, and more closely match the size of 
   line drawn on the plot.
 
+* `geom_pointrange()` and `geom_linerange()` get vertical (not horizontal)
+  lines in the legend (#1389).
+
 * The default line `size` for `geom_smooth()` has been increased from 0.5 to 1 
   to make it easier to see when overlaid on data.
 

R/geom-linerange.r

@@ -73,7 +73,7 @@ geom_linerange <- function(mapping = NULL, data = NULL, stat = "identity",
 GeomLinerange <- ggproto("GeomLinerange", Geom,
   default_aes = aes(colour = "black", size = 0.5, linetype = 1, alpha = NA),
 
-  draw_key = draw_key_path,
+  draw_key = draw_key_vpath,
 
   required_aes = c("x", "ymin", "ymax"),
 

R/legend-draw.r

@@ -117,6 +117,20 @@ draw_key_path <- function(data, params, size) {
   )
 }
 
+#' @export
+#' @rdname draw_key
+draw_key_vpath <- function(data, params, size) {
+  segmentsGrob(0.5, 0.1, 0.5, 0.9,
+    gp = gpar(
+      col = alpha(data$colour, data$alpha),
+      lwd = data$size * .pt,
+      lty = data$linetype,
+      lineend = "butt"
+    ),
+    arrow = params$arrow
+  )
+}
+
 #' @export
 #' @rdname draw_key
 draw_key_dotplot <- function(data, params, size) {
@@ -133,7 +147,7 @@ draw_key_dotplot <- function(data, params, size) {
 #' @rdname draw_key
 draw_key_pointrange <- function(data, params, size) {
   grobTree(
-    draw_key_path(data, params),
+    draw_key_vpath(data, params, size),
     draw_key_point(transform(data, size = data$size * 4), params)
   )
 }