Converting geom_tile's stroke

While this bug is "small", it is effecting heatmaply behavior so a fix would be very helpful.

Following is a reproducible example with the plots of ggplot2 and plotly:

df <- data.frame(
  x = rep(c(2, 5, 7, 9, 12), 2),
  y = rep(c(1, 2), each = 5),
  w = rep(diff(c(0, 4, 6, 8, 10, 14)), 2)
)
p <- ggplot(df, aes(x, y)) +
  geom_tile(aes(fill = w), colour = "grey50", size = 2) +
  theme_bw()
p


ggplotly(p)

ggplot2:

plotly (notice the grey borders are missing)

從 issue 中可重現的 R 範例開始，比較 ggplot2 和 plotly 的輸出，重點關注 geom_tile 的色彩和大小設定。追蹤 geom_tile 的 ggplotly 轉換入口；當灰色的圖塊邊框如同在 ggplot2 中一樣出現在 plotly 輸出中時，即表示完成。