r - 如何使用 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 中的行注释。如果有人可以帮助我，我将不胜感激。先感谢您。