Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (18 sloc) 624 Bytes
GeomContour <- proto(GeomPath, {
objname <- "contour"
desc <- "Display contours of a 3d surface in 2d"
icon <- function(.) {
ggname(.$my_name(), gTree(children=gList(
polygonGrob(c(0.45,0.5,0.6, 0.5), c(0.5, 0.4, 0.55, 0.6)),
polygonGrob(c(0.25,0.6,0.8, 0.5), c(0.5, 0.2, 0.75, 0.9), gp=gpar(fill=NA))
)))
}
default_aes <- function(.) aes(weight=1, colour="#3366FF", size = 0.5, linetype = 1, alpha = 1)
default_stat <- function(.) StatContour
seealso <- list(
geom_density2d = "Draw 2d density contours"
)
examples <- function(.) {
# See stat_contour for examples
}
})
Something went wrong with that request. Please try again.