geom_title scales become distorted after applying ggplotly

I still don't fully understand how geom_tile calculate the sizes of each tile. However, it seems that the same method is not transferred to ggplotly.

dat <- data.frame(x = c(1,4,10), y = c(2, 5, 3), z = 1:3)
ggplot(dat, aes(x,y,fill=z)) + geom_tile() -> p
p

The scales become distorted after applying ggplotly.

ggplotly(p)

Is there a way to fix the size of each tiles after applying ggplotly?

Beginnen Sie mit dem bereitgestellten R-Beispiel und vergleichen Sie die von geom_tile erzeugten Kachelgrößen mit dem Ergebnis von ggplotly(p). Verfolgen Sie, wie die geom_tile-Skalen durch ggplotly übertragen werden; abgeschlossen ist die Aufgabe, wenn der konvertierte Plot die relativen Kachelgrößen beibehält, die im ursprünglichen ggplot angezeigt werden.