Displaying 1 result from an estimated 1 matches for "xminvs".
Did you mean:
xminus
2018 Mar 07
0
ggplot2: plot gruped/nested split violins
...t_violin",
GeomPolygon$draw_panel(newdata, ...))
}
})
create_quantile_segment_frame <- function (data, draw_quantiles, split
= FALSE, grp = NULL) {
dens <- cumsum(data$density)/sum(data$density)
ecdf <- stats::approxfun(dens, data$y)
ys <- ecdf(draw_quantiles)
violin.xminvs <- (stats::approxfun(data$y, data$xminv))(ys)
violin.xmaxvs <- (stats::approxfun(data$y, data$xmaxv))(ys)
violin.xs <- (stats::approxfun(data$y, data$x))(ys)
if (grp %% 2 == 0) {
data.frame(x = ggplot2:::interleave(violin.xs, violin.xmaxvs),
y = rep(ys, each = 2),...