Skip to content
Browse files

GeomRangeFrame: bug fix, was not plotting top range.

  • Loading branch information...
1 parent efe56d1 commit 4ac60136570902bcd8b73b7d99eacf27ffc7632b @jrnold committed Oct 3, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 R/geom-rangeframe.R
View
2 R/geom-rangeframe.R
@@ -50,7 +50,7 @@ GeomRangeFrame <- proto(ggplot2:::Geom, {
}
if(grepl("t", sides)) {
- rugs$x_b <- segmentsGrob(
+ rugs$x_t <- segmentsGrob(
x0 = unit(fun_min(data$x), "native"), x1 = unit(fun_max(data$x), "native"),
y0 = unit(1, "npc"), y1 = unit(1, "npc"),
gp = gpar(col = alpha(data$colour, data$alpha), lty = data$linetype, lwd = data$size * .pt)

0 comments on commit 4ac6013

Please sign in to comment.
Something went wrong with that request. Please try again.