使用plotly将热图的列分组？

Question

我通过plotly程序包生成了一个热图，并希望根据新类别对列进行分组，这类似于heatmaply程序包中的col_side_colors吗？ 谢谢您的帮助。

   require(plotly)
   mat <- matrix(rnorm(1000,2,1),rnorm(1000,-2,1),nrow=1000,ncol=4)
   rownames(mat) <- paste("Gene",1:1000,sep=".")
   colnames(mat) <- paste("Sample",1:4,sep="_")
   clus1 <- hclust(dist(mat))
   d2 <- mat[clus1$order,]
   d3<- d2[unique(rownames(d2)),]
   heatmapplot<- plot_ly() %>%
   add_trace(z= d3
        , type = 'heatmap'
        , x =  colnames(d3)                    
        , y =  rownames(d3)
    )
   heatmapplot

我想将Sample_1和Sample-2放在一个组中，并将Sample_3和Sample_4放在另一个组中，并使用颜色键显示组名称。类似于下图所示：