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.

Inizia con l’esempio R che usa map_data("world"), geom_polygon(), coord_map() e ggplotly() per riprodurre la mappa distorta della Germania. Confronta l’output statico di ggplot con il grafico interattivo convertito e analizza come vengono trasferite le impostazioni delle coordinate. Il lavoro è completato quando il risultato interattivo preserva le proporzioni originali continuando a supportare la sovrapposizione e i tooltip previsti.