Don't use alpha for violin quantiles (#1726)

mnbram · hadley · commit 0a31f9b2ff2a · 2016-09-06T13:35:51.000-05:00
diff --git a/NEWS.md b/NEWS.md
@@ -78,6 +78,9 @@
 * A warning is now issued when a scale transformation introduces infinite 
   values in a scale (#1696)
 
+* Quantile lines in geom_violin() are no longer affected by the alpha aesthetic
+  (@mnbram, #1714)
+
 # ggplot2 2.1.0
 
 ## New features
diff --git a/R/geom-violin.r b/R/geom-violin.r
@@ -137,6 +137,7 @@ GeomViolin <- ggproto("GeomViolin", Geom,
         setdiff(names(data), c("x", "y")),
         drop = FALSE
       ]
+      aesthetics$alpha <- rep(1, nrow(quantiles))
       both <- cbind(quantiles, aesthetics)
       quantile_grob <- GeomPath$draw_panel(both, ...)
 

Original file line number	Diff line number	Diff line change
`@@ -137,6 +137,7 @@ GeomViolin <- ggproto("GeomViolin", Geom,`
`137`	`137`	`setdiff(names(data), c("x", "y")),`
`138`	`138`	`drop = FALSE`
`139`	`139`	`]`
	`140`	`+ aesthetics$alpha <- rep(1, nrow(quantiles))`
`140`	`141`	`both <- cbind(quantiles, aesthetics)`
`141`	`142`	`quantile_grob <- GeomPath$draw_panel(both, ...)`
`142`	`143`