如何将geom_tile与plotly结合用于R中的交互式网格图

Question

我是使用plotly的新手，并希望创建一个类似于热图的交互式图形。我想将来自ggplot的geom_tile（）函数与来自plotly的ggplotly（）函数结合起来创建一个ggplot并将其转换为一个plotly对象。这是我的代码示例：

library(ggplot2)
nrows <- 70
var <- mpg$class  # the categorical data 
df <- expand.grid(y = 1:nrows, x = 1:nrows)
categ_table <- round(table(var) * ((nrows*nrows)/(length(var))))
df$category <- factor(rep(names(categ_table), categ_table))   

## Plot
test_plot <- ggplot(df, aes(x = x, y = y, fill = category)) + 
  geom_tile(color = "black", size = 0.2)

ggplotly(test_plot)

给定尺寸（nrows = 70），ggplotly对象在创建时会明显滞后。当我设置nrows = 10时，没有滞后。我想知道我在这里使用geom_tile（）和ggplotly是否正确，或者是否有更好的方法让我这样做？

我可以通过plot_ly（）直接构建plotly对象吗？看起来plot_ly（）有一个＆＃39;热图＆＃39;类型。

编辑 - 我有少量离散类别，这让我觉得我不能用plot_ly的热图做到这一点。我不确定。