tutorial - tamaño de la leyenda en r

mover de forma independiente 2 leyendas ggplot2 en un mapa (4)

Esto funciona pero necesita algunos ajustes. Simplemente trace una leyenda donde la desee y luego use annotation_custom para agregar la segunda. Esto no es generalizable para n leyendas. Sería bueno tener una respuesta que sí. Parece que solo puedes usar una annotation_custom a la vez.

plot1 <- e1 + annotation_custom(grob = leg2, xmin = -74, xmax = -72.5, ymin = 41, ymax = 42.5) plot2 <- ggplot(mtcars, aes(mpg, hp)) + geom_point() grid.arrange(plot1, plot2)

Quiero mover de forma independiente dos leyendas en un mapa para guardar y hacer la presentación más agradable.

Aquí están los datos:

## INST..SUB.TYPE.DESCRIPTION Enrollment lat lng ## 1 CHARTER SCHOOL 274 42.66439 -73.76993 ## 2 PUBLIC SCHOOL CENTRAL 525 42.62502 -74.13756 ## 3 PUBLIC SCHOOL CENTRAL HIGH SCHOOL NA 40.67473 -73.69987 ## 4 PUBLIC SCHOOL CITY 328 42.68278 -73.80083 ## 5 PUBLIC SCHOOL CITY CENTRAL 288 42.15746 -78.74158 ## 6 PUBLIC SCHOOL COMMON NA 43.73225 -74.73682 ## 7 PUBLIC SCHOOL INDEPENDENT CENTRAL 284 42.60522 -73.87008 ## 8 PUBLIC SCHOOL INDEPENDENT UNION FREE 337 42.74593 -73.69018 ## 9 PUBLIC SCHOOL SPECIAL ACT 75 42.14680 -78.98159 ## 10 PUBLIC SCHOOL UNION FREE 256 42.68424 -73.73292

Vi en este post que puedes mover dos leyendas independientes, pero cuando pruebo las leyendas, no voy a donde quiero (esquina superior izquierda, como en el diagrama e1 , y centro derecha, como el diagrama e2 ).

https://stackoverflow.com/a/13327793/1000343

El resultado final deseado se fusionará con otro gráfico de cuadrícula, así que tengo que ser capaz de asignarlo como un grob de alguna manera. Me gustaría entender cómo mover realmente las leyendas, ya que la otra publicación funcionó para ellas, pero no explica lo que está sucediendo.

Aquí está el código que estoy intentando:

## También he vinculado:

e3 + annotation_custom(grob = leg2, xmin = -74, xmax = -72.5, ymin = 41, ymax = 42.5) + annotation_custom(grob = leg1, xmin = -80, xmax = -76, ymin = 43.7, ymax = 45)

## dput data:

dat2 <- structure(list(INST..SUB.TYPE.DESCRIPTION = c("CHARTER SCHOOL", "PUBLIC SCHOOL CENTRAL", "PUBLIC SCHOOL CENTRAL HIGH SCHOOL", "PUBLIC SCHOOL CITY", "PUBLIC SCHOOL CITY CENTRAL", "PUBLIC SCHOOL COMMON", "PUBLIC SCHOOL INDEPENDENT CENTRAL", "PUBLIC SCHOOL INDEPENDENT UNION FREE", "PUBLIC SCHOOL SPECIAL ACT", "PUBLIC SCHOOL UNION FREE"), Enrollment = c(274, 525, NA, 328, 288, NA, 284, 337, 75, 256), lat = c(42.6643890904276, 42.6250153712452, 40.6747307730359, 42.6827826714356, 42.1574638634531, 43.732253, 42.60522, 42.7459287878497, 42.146804, 42.6842408825698 ), lng = c(-73.769926191186, -74.1375573966339, -73.6998654715486, -73.800826733851, -78.7415828275227, -74.73682, -73.87008, -73.6901801893874, -78.981588, -73.7329216476674)), .Names = c("INST..SUB.TYPE.DESCRIPTION", "Enrollment", "lat", "lng"), row.names = c(NA, -10L), class = "data.frame")

Salida deseada:

Como @Tyler Rinker ya dijo en su propia respuesta, el problema no se puede resolver con más de una annotation_custom . El siguiente código es bastante compacto y completo (pero necesita algunos ajustes para la colocación correcta de las leyendas):

p <- ggplot(dat2, aes(x=lng, y=lat)) + geom_polygon(data=ny, aes(x=long, y=lat, group = group)) + geom_point(aes(colour=INST..SUB.TYPE.DESCRIPTION,size = Enrollment), alpha = .3) + theme(legend.position = c( .15, .8),legend.key = element_blank(), legend.background = element_blank()) l1 <- p + guides(size=FALSE, colour = guide_legend(title=NULL,override.aes = list(alpha = 1, size=3))) l2 <- p + guides(colour=FALSE) leg2 <- gtable_filter(ggplot_gtable(ggplot_build(l2)), "guide-box") plot1 <- l1 + annotation_custom(grob = leg2, xmin = -73, xmax = -71.5, ymin = 41, ymax = 42.5) plot2 <- ggplot(mtcars, aes(mpg, hp)) + geom_point() grid.arrange(plot1, plot2)

@Tyler: no dude en incluir esto en su propia respuesta

Las vistas se pueden posicionar con cierta precisión. En el siguiente ejemplo, las dos leyendas se extraen y luego se colocan dentro de sus propias vistas. Las ventanas gráficas están contenidas dentro de rectángulos de colores para mostrar su posición. Además, coloqué el mapa y el diagrama de dispersión dentro de las ventanas gráficas. Obtener el tamaño de texto y el tamaño de punto correctos para que la leyenda superior izquierda se comprimiera en el espacio disponible era un poco un violín.

library(ggplot2); library(maps); library(grid); library(gridExtra); library(gtable) ny <- subset(map_data("county"), region %in% c("new york")) ny$region <- ny$subregion p3 <- ggplot(dat2, aes(x = lng, y = lat)) + geom_polygon(data=ny, aes(x = long, y = lat, group = group)) # Get the colour legend (e1 <- p3 + geom_point(aes(colour = INST..SUB.TYPE.DESCRIPTION, size = Enrollment), alpha = .3) + geom_point() + theme_gray(9) + guides(size = FALSE, colour = guide_legend(title = NULL, override.aes = list(alpha = 1, size = 3))) + theme(legend.key.size = unit(.35, "cm"), legend.key = element_blank(), legend.background = element_blank())) leg1 <- gtable_filter(ggplot_gtable(ggplot_build(e1)), "guide-box") # Get the size legend (e2 <- p3 + geom_point(aes(colour=INST..SUB.TYPE.DESCRIPTION, size = Enrollment), alpha = .3) + geom_point() + theme_gray(9) + guides(colour = FALSE) + theme(legend.key = element_blank(), legend.background = element_blank())) leg2 <- gtable_filter(ggplot_gtable(ggplot_build(e2)), "guide-box") # Get first base plot - the map (e3 <- p3 + geom_point(aes(colour = INST..SUB.TYPE.DESCRIPTION, size = Enrollment), alpha = .3) + geom_point() + guides(colour = FALSE, size = FALSE)) # For getting the size of the y-axis margin gt <- ggplot_gtable(ggplot_build(e3)) # Get second base plot - the scatterplot plot2 <- ggplot(mtcars, aes(mpg, hp)) + geom_point() # png("p.png", 600, 700, units = "px") grid.newpage() # Two viewport: map and scatterplot pushViewport(viewport(layout = grid.layout(2, 1))) # Map first pushViewport(viewport(layout.pos.row = 1)) grid.draw(ggplotGrob(e3)) # position size legend pushViewport(viewport(x = unit(1, "npc") - unit(1, "lines"), y = unit(.5, "npc"), w = leg2$widths, h = .4, just = c("right", "centre"))) grid.draw(leg2) grid.rect(gp=gpar(col = "red", fill = "NA")) popViewport() # position colour legend pushViewport(viewport(x = sum(gt$widths[1:3]), y = unit(1, "npc") - unit(1, "lines"), w = leg1$widths, h = .33, just = c("left", "top"))) grid.draw(leg1) grid.rect(gp=gpar(col = "red", fill = "NA")) popViewport(2) # Scatterplot second pushViewport(viewport(layout.pos.row = 2)) grid.draw(ggplotGrob(plot2)) popViewport() # dev.off()

Por cierto, es posible usar más de una annotation_custom :

library(ggplot2); library(maps); library(grid); library(gridExtra); library(gtable) ny <- subset(map_data("county"), region %in% c("new york")) ny$region <- ny$subregion p3 <- ggplot(dat2, aes(x = lng, y = lat)) + geom_polygon(data=ny, aes(x = long, y = lat, group = group)) # Get the colour legend (e1 <- p3 + geom_point(aes(colour = INST..SUB.TYPE.DESCRIPTION, size = Enrollment), alpha = .3) + geom_point() + theme_gray(9) + guides(size = FALSE, colour = guide_legend(title = NULL, override.aes = list(alpha = 1, size = 3))) + theme(legend.key.size = unit(.35, "cm"), legend.key = element_blank(), legend.background = element_blank())) leg1 <- gtable_filter(ggplot_gtable(ggplot_build(e1)), "guide-box") # Get the size legend (e2 <- p3 + geom_point(aes(colour=INST..SUB.TYPE.DESCRIPTION, size = Enrollment), alpha = .3) + geom_point() + theme_gray(9) + guides(colour = FALSE) + theme(legend.key = element_blank(), legend.background = element_blank())) leg2 <- gtable_filter(ggplot_gtable(ggplot_build(e2)), "guide-box") # Get first base plot - the map (e3 <- p3 + geom_point(aes(colour = INST..SUB.TYPE.DESCRIPTION, size = Enrollment), alpha = .3) + geom_point() + guides(colour = FALSE, size = FALSE)) leg2Grob <- grobTree(leg2) leg3Grob <- grobTree(leg2) leg4Grob <- grobTree(leg2) leg5Grob <- grobTree(leg2) leg1Grob <- grobTree(leg1) p = e3 + annotation_custom(leg2Grob, xmin=-73.5, xmax=Inf, ymin=41, ymax=43) + annotation_custom(leg1Grob, xmin=-Inf, xmax=-76.5, ymin=43.5, ymax=Inf) + annotation_custom(leg3Grob, xmin = -Inf, xmax = -79, ymin = -Inf, ymax = 41.5) + annotation_custom(leg4Grob, xmin = -78, xmax = -76, ymin = 40.5, ymax = 42) + annotation_custom(leg5Grob, xmin=-73.5, xmax=-72, ymin=43.5, ymax=Inf) p