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?

提供された R の例から始め、geom_tile によって生成されるタイルのサイズと ggplotly(p) の結果を比較します。geom_tile のスケールが ggplotly を通じてどのように移行されるかを追跡します。元の ggplot で示されるタイルの相対的なサイズが変換後のプロットでも保持されれば完了です。