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 で行の注釈を探しています。誰かが私を助けることができれば、私はそれを感謝します. 前もって感謝します。