superponer - Anotación de texto en faceta individual en ggplot2

superponer graficas en r ggplot

Question

Quiero anotar algún texto en la última faceta de la trama con el siguiente código:

library(ggplot2)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p <- p + facet_grid(. ~ cyl)
p <- p + annotate("text", label = "Test", size = 4, x = 15, y = 5)
print(p)

Pero este código anota el texto en cada faceta. Le agradecería mucho si me guía cómo obtener el texto anotado en una sola faceta. Gracias por adelantado.

Answer 1

Aquí está la trama sin anotaciones de texto:

library(ggplot2)
p <- ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
facet_grid(. ~ cyl) +
theme(panel.spacing = unit(1, "lines"))
p

Vamos a crear un marco de datos adicional para contener las anotaciones de texto:

dat_text <- data.frame(
label = c("4 cylinders", "6 cylinders", "8 cylinders"),
cyl = c(4, 6, 8)
)
p + geom_text(
data = dat_text,
mapping = aes(x = -Inf, y = -Inf, label = label),
hjust = -0.1,
vjust = -1
)

Alternativamente, podemos especificar manualmente la posición de cada etiqueta:

dat_text <- data.frame(
label = c("4 cylinders", "6 cylinders", "8 cylinders"),
cyl = c(4, 6, 8),
x = c(20, 27.5, 25),
y = c(4, 4, 4.5)
)
p + geom_text(data = ann_text,label = "Text")
p + geom_text(
data = dat_text,
mapping = aes(x = x, y = y, label = label)
)

Notas:

• Puede usar -Inf e Inf para colocar texto en los bordes de un panel.
• Puede usar hjust y vjust para ajustar la justificación del texto.
• El marco de datos de etiqueta de texto dat_text debe tener una columna que funcione con facet_grid() o facet_wrap() .

Answer 2

Creo que para la respuesta anterior lab = "Texto" es inútil, el siguiente código también está bien.

ann_text <- data.frame(mpg = 15,wt = 5,
cyl = factor(8,levels = c("4","6","8")))
p + geom_text(data = ann_text,label = "Text" )

Sin embargo, si desea etiquetar de manera diferente en diferentes sub-gráficos, estará bien de esta manera:

ann_text <- data.frame(mpg = c(14,15),wt = c(4,5),lab=c("text1","text2"),
cyl = factor(c(6,8),levels = c("4","6","8")))
p + geom_text(data = ann_text,aes(label =lab) )

Answer 3

Por lo general, harías algo como esto:

ann_text <- data.frame(mpg = 15,wt = 5,lab = "Text",
cyl = factor(8,levels = c("4","6","8")))
p + geom_text(data = ann_text,label = "Text")

Debería funcionar sin especificar completamente la variable de factor, pero probablemente lanzará algunas advertencias: