R Heatmaply侧边栏颜色，如何正确显示指定的颜色？

我有一个问题，可能是热图或阴谋中的错误。热图边栏中的颜色没有显示我指定的颜色。参见下面的代码示例，在第6部分代码的末尾，第一个绘图（使用绘图功能simple plot绘制）显示颜色，正确显示黄色和蓝色：

在heatmaply侧栏中使用这些颜色的第二个绘图heatmaply侧栏颜色错误：

无法正确显示它们，而是显示随机颜色。在具有真实数据的类似图中，侧栏中甚至有红色和橙色。热图侧栏显示红色和橙色，而颜色范围为蓝黄色：

而所有代码都是使用蓝黄色范围生成的。你知道是什么导致了这个错误，以及如何在侧边栏中显示与颜色代码a一致的颜色吗

在完整数据和子样本数据的基础上，比较两棵树的叶子之间的共生相似性

---

找到解决方案后，您可以使用带有heatmaply build in row_side_palette参数的颜色函数。最小示例代码，可与问题本身中的代码相结合，以不同颜色表示的边栏中显示热图和每种树叶/物种的共生距离：

ByPal <- colorRampPalette(c('red','blue')) # Bi color palette function to be used in sidebar 

heatmaply(m,colD = row_dend, file=fileName1, plot_method= "plotly",colorscale='Viridis',row_side_palette= byPal ,
                row_side_colors=data.frame("Correlation cophenetic distances" = corPerLeave, check.names=FALSE))

我还没有解决的一个问题是如何在图例中显示连续的色条，有什么建议吗

ByPal <- colorRampPalette(c('red','blue')) # Bi color palette function to be used in sidebar 

heatmaply(m,colD = row_dend, file=fileName1, plot_method= "plotly",colorscale='Viridis',row_side_palette= byPal ,
                row_side_colors=data.frame("Correlation cophenetic distances" = corPerLeave, check.names=FALSE))