You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
1.1 KiB
38 lines
1.1 KiB
GeomXSpline2 <- ggproto("GeomXSpline", Geom,
|
|
required_aes = c("x", "y"),
|
|
default_aes = aes(colour = "black", s_shape=1, s_open=FALSE),
|
|
draw_key = draw_key_point,
|
|
|
|
draw_panel = function(data, panel_scales, coord) {
|
|
coords <- coord$transform(data, panel_scales)
|
|
grid::xsplineGrob(
|
|
coords$x, coords$y,
|
|
shape = coords$s_shape-1, ## kluge!
|
|
open = coords$s_open[1],
|
|
gp = grid::gpar(col = coords$colour)
|
|
)
|
|
}
|
|
)
|
|
|
|
##' Xspline
|
|
##'
|
|
##' @title xsplines
|
|
##' @param mapping mapping
|
|
##' @param data data
|
|
##' @param stat stat
|
|
##' @param position position
|
|
##' @param na.rm na.rm
|
|
##' @param show.legend show.legend
|
|
##' @param inherit.aes inherit.aes
|
|
##' @param ... stuff
|
|
##' @return creates a spline curve
|
|
##' @author Ben Bolker
|
|
geom_xspline2 <- function(mapping = NULL, data = NULL, stat = "identity",
|
|
position = "identity", na.rm = FALSE, show.legend = NA,
|
|
inherit.aes = TRUE, ...) {
|
|
layer(
|
|
geom = GeomXSpline2, mapping = mapping, data = data, stat = stat,
|
|
position = position, show.legend = show.legend, inherit.aes = inherit.aes,
|
|
params = list(na.rm = na.rm, ...)
|
|
)
|
|
}
|
|
|