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!

Start by running the reproducible R example with maps, ggplot2, and plotly, focusing on the facet_wrap map output. Trace how faceted map scales are generated and verify the change by confirming that all facet panels scale evenly.