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!

Bắt đầu bằng cách chạy ví dụ R có thể tái lập với maps, ggplot2 và plotly, tập trung vào đầu ra bản đồ facet_wrap. Theo dõi cách các tỷ lệ của bản đồ được phân mảnh được tạo ra và xác minh thay đổi bằng cách xác nhận rằng tất cả các panel phân mảnh đều được điều chỉnh tỷ lệ đồng đều.