R绘图,在3D热图上具有不同的颜色和z轴

我想用绘制3D热图 plotly 但是我想让颜色梯度独立于z轴。

具有 ggplot2 我可以生成以下图像:

dat <- data.frame("cat1" = sort(rep(seq(1:6), 6)),
                  "cat2" = rep(seq(1:6), 6),
                  "variable" = round(rnorm(36), 1),
                  "freq" = seq(100, (100-35)))

library(ggplot2)
ggplot(data.frame(dat), aes(cat1, cat2, fill = variable, label = freq)) + 
  geom_tile() +
  geom_text()

现在 绘声绘色地 ,我无法获得与一列相关的高度(此处 freq )和另一个颜色(列 variable ). 下图将高度和颜色与 频率 .

library(plotly)
mat <- tapply(dat$freq, list(dat$cat1, dat$cat2), sum)
plot_ly(z = ~ mat) %>% add_surface