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.

map_data("world")、geom_polygon()、coord_map()、ggplotly()を使用するRの例から始め、歪んだドイツの地図を再現します。静的なggplotの出力と変換後のインタラクティブなプロットを比較し、座標設定がどのように引き継がれるかを調査します。インタラクティブな結果が元のアスペクト比を維持しながら、意図したオーバーレイとツールチップを引き続きサポートできれば完了です。