tutorial - Insertar capa debajo de las capas existentes en el objeto ggplot2

superponer graficas en r ggplot

Question

Dado un objeto de trazado existente, ¿es posible agregar una capa BAJO UNA capa existente?

Por ejemplo, en el gráfico a continuación, ¿es posible agregar geom_boxplot() a P tal manera que el diagrama de caja aparezca debajo de geom_point() ?

## Starting from:
library(ggplot2)
P <- ggplot(data=dat, aes(x=id, y=val)) + geom_point()
## This adds boxplot, but obscures some of the points
P + geom_boxplot()

Rendimiento esperado:

# Which is essentially
ggplot(data=dat, aes(x=id, y=val)) + geom_boxplot() + geom_point()
## However, this involves re-coding all of P (after the point insertion of the new layer).
## which is what I am hoping to avoid. 

Pregunta extra: si hay varias capas en el trazado existente, ¿es posible indicar dónde insertar específicamente la nueva capa (con respecto a las capas existentes)?

DATA DE MUESTRA

set.seed(1)
N <- 100
id <- c("A", "B")
dat <- data.frame(id=sample(id, N, TRUE), val=rnorm(N))

Answer 1

Como se muestra en la documentación de ggplot here , puede configurar un objeto ggplot esqueleto y agregar capas. El orden en que especifica las capas es el orden en que aparecerán en su parcela.

Esto obtendrá su salida esperada:

ggplot() +
geom_boxplot(data = dat, aes(x=id, y=val)) +
geom_point(data = dat, aes(x=id, y=val)) 

Esto obtendrá su salida incorrecta:

ggplot() +
geom_point(data = dat, aes(x=id, y=val)) +
geom_boxplot(data = dat, aes(x=id, y=val)) 

Creo que esto también responde a tu pregunta extra :)

Answer 2

Gracias @baptiste por indicarme la dirección correcta. Para insertar una capa debajo de todas las demás capas, simplemente modifique el elemento de layers del objeto de trazado.

## For example:
P$layers <- c(geom_boxplot(), P$layers)

Respuesta a la pregunta de bonificación:

Esta pequeña y práctica función inserta una capa en un nivel z designado:

insertLayer <- function(P, after=0, ...) {
# P : Plot object
# after : Position where to insert new layers, relative to existing layers
# ... : additional layers, separated by commas (,) instead of plus sign (+)
if (after < 0)
after <- after + length(P$layers)
if (!length(P$layers))
P$layers <- list(...)
else
P$layers <- append(P$layers, list(...), after)
return(P)
}