如何使用R语言向Plotly热图添加注释

Question

library(complexHeatmap)
library(circlize)
p <- plot_ly(droplevels(data_Frame,
               x = ~factor(X),y=~Y,z=~Z,
               key=~Z,type = "heatmap",source = "heatplot")%>%    
               add_annotations(rowAnnotation(row_annotation_need_to_add="Type"))%>%
               layout(xaxis=list(title="X"),
                      yaxis=list(title="Y"),
                      theme_bw(16)) 

这就是我想要的热图，但是在r-plotly中：

我试图在r-plotly中添加行注释。 他们确实有add_annotation，但我正在r-plotly中寻找行注释。如果有人能帮助我，我会很感激。 先感谢您。