Displaying 1 result from an estimated 1 matches for "geompolygon".
Did you mean:
geom_polygon
2018 Mar 07
0
ggplot2: plot gruped/nested split violins
...es)), setdiff(names(data),
c("x", "y")), drop = FALSE]
aesthetics$alpha <- rep(1, nrow(quantiles))
both <- cbind(quantiles, aesthetics)
quantile_grob <- GeomPath$draw_panel(both, ...)
ggplot2:::ggname("geom_split_violin",
grid::grobTree(GeomPolygon$draw_panel(newdata, ...), quantile_grob))
}
else {
ggplot2:::ggname("geom_split_violin",
GeomPolygon$draw_panel(newdata, ...))
}
})
create_quantile_segment_frame <- function (data, draw_quantiles, split
= FALSE, grp = NULL) {
dens <- cumsum(data$density)/sum(d...