Aspect ratio of geom_map is distorted after conversion to plotly

Disclaimer: This is a x-post from stackoverflow, but the longer I ponder around this issue, the more I think, this might be a bug.

I am trying to create an interactive map of Germany with plotly and ggplot. At last, I'd like to overlay geom_points with tooltips, but so far I am struggeling with the aspect ratio.

I create the plot like this:

library(tidyverse)
library(ggplot2)
library(plotly)

p <- map_data("world") %>%
  filter(region=="Germany") %>%
  ggplot(aes(x=long, y = lat, group = group)) +
  geom_polygon(fill="grey") +
  coord_map()

When simply plotting it with ggplot, the aspect ratio of Germany is how I know it from school.

p

When converting it to a plotly plot with ggplotly the plot is distorted.

ggplotly(p)

Any ideas how to fix it? I don't know whether this is relevant, but I used to run this code in an R Markdown document.

Thanks a lot.

Bắt đầu với ví dụ R sử dụng map_data("world"), geom_polygon(), coord_map() và ggplotly() để tái tạo bản đồ Đức bị méo. So sánh đầu ra ggplot tĩnh với biểu đồ tương tác đã chuyển đổi và điều tra cách các thiết lập tọa độ được truyền sang. Hoàn thành khi kết quả tương tác giữ nguyên tỷ lệ khung hình ban đầu mà vẫn hỗ trợ lớp phủ và các tooltip dự kiến.