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 所显示的图块相对大小时，即表示完成。