Map zoom not scaling evenly with facet wrap #2831

Scaling of maps is not even when using facet_wrap.

Reproducible with the code below:

library(maps)
library(ggplot2)
library(plotly)

map <- map_data("world")
d <- as.data.frame(seq(1,25))
d$value <- sample(c(1:10), 25, replace=T)
d$lat <- sample(c(1:90), 25, replace=T)
d$lon <- sample(c(1:180), 25, replace=T)
d$season <- sample (c('Spring', 'Summer','Fall', 'Winter'), size=25, replace=T)

p <- ggplot() +
  geom_polygon(data=map, aes(x=long, y=lat, group=group), colour="grey", fill="light grey") +
  geom_point(data=d, aes(x=lon, y=lat,  size=value), alpha=I(0.7)) +
  facet_wrap( ~ season, ncol=2)

fig <- ggplotly(p)
fig

Thanks!

Commencez par exécuter l’exemple R reproductible avec maps, ggplot2 et plotly, en vous concentrant sur la sortie cartographique de facet_wrap. Suivez la manière dont les échelles des cartes facettées sont générées et vérifiez la modification en confirmant que tous les panneaux de facettes sont mis à l’échelle uniformément.