小编Bli*_*ing的帖子

目标： 我正在尝试使用 plotly（通过 ggplotly）创建 ggplot2 地图的交互式版本。

问题： Plotly 在图表上方和下方添加额外的空间，而不是像它应该的那样“拉伸”图表（例如，参见图片）。

例子

我想要什么（在 ggplot2 中制作的示例）：

我得到了什么（以情节制作的例子）：

我知道 ggplotly 不支持 aspect.ratio 但是有没有其他方法可以在保持 x 轴 (-12,2) 和 y 轴 (50,60) 限制的同时删除上下空间

代码：

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

boundaries <- ggplot2::map_data("world", region=c("UK","Ireland","France","Norway"))

map <- ggplot() +
  geom_polygon(data=boundaries, aes(x=long, y=lat, group=group), color="black", fill="white") +
  coord_sf(xlim=c(-12, 2), ylim=c(50,60)) +
  theme(aspect.ratio = 1.2)

show(map)

visual <- ggplotly(map, height=1.2*400, width=400, tooltip=c("text"), hoverinfo='hide', 
                               dynamicTicks=F) %>%
  layout(xaxis=list(autorange=F, range=c(-12, 2)), yaxis = list(autorange=F, range=c(50,60)))

show(visual)

要复制问题：

操作系统：Windows 10
IDE：RStudio
R：R 3.6.1