Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

46 lines (38 sloc) 1.574 kB
GeomPointrange <- proto(Geom, {
objname <- "pointrange"
desc <- "An interval represented by a vertical line, with a point in the middle"
icon <- function(.) {
gTree(children=gList(
segmentsGrob(c(0.3, 0.7), c(0.1, 0.2), c(0.3, 0.7), c(0.7, 0.95)),
pointsGrob(c(0.3, 0.7), c(0.4, 0.6), pch=19, gp=gpar(col="black", cex=0.5), default.units="npc")
))
}
seealso <- list(
"geom_errorbar" = "error bars",
"geom_linerange" = "range indicated by straight line, + examples",
"geom_crossbar" = "hollow bar with middle indicated by horizontal line",
"stat_summary" = "examples of these guys in use",
"geom_smooth" = "for continuous analog"
)
default_stat <- function(.) StatIdentity
default_aes <- function(.) aes(colour = "black", size=0.5, linetype=1, shape=16, fill=NA, alpha = 1)
guide_geom <- function(.) "pointrange"
required_aes <- c("x", "y", "ymin", "ymax")
draw <- function(., data, scales, coordinates, ...) {
if (is.null(data$y)) return(GeomLinerange$draw(data, scales, coordinates, ...))
ggname(.$my_name(),gTree(children=gList(
GeomLinerange$draw(data, scales, coordinates, ...),
GeomPoint$draw(transform(data, size = size * 4), scales, coordinates, ...)
)))
}
draw_legend <- function(., data, ...) {
data <- aesdefaults(data, .$default_aes(), list(...))
grobTree(
GeomPath$draw_legend(data, ...),
GeomPoint$draw_legend(transform(data, size = size * 4), ...)
)
}
examples <- function(.) {
# See geom_linerange for examples
}
})
Jump to Line
Something went wrong with that request. Please try again.