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.

Commencez par l’exemple R utilisant map_data("world"), geom_polygon(), coord_map() et ggplotly() afin de reproduire la carte déformée de l’Allemagne. Comparez la sortie statique de ggplot avec le graphique interactif converti et examinez comment les paramètres de coordonnées sont transférés. Le travail est considéré comme terminé lorsque le résultat interactif préserve le rapport hauteur/largeur d’origine tout en prenant en charge la superposition et les info-bulles prévues.