r - 在 R 中使用 Complexheatmap 中的异常值可视化数据中的图例颜色？

Question

这是我绘制的热图的图例图像。我有一些异常值的数据，因此范围在 1-5597 之间。但是，大多数数字都在 1-500 范围内，但由于异常值很少，1-500 范围内的颜色不可见。如何在异常值的情况下可视化图例。由于我的数据中有很多零值，我没有将其转换为对数刻度

library(circlize)

col_fun = colorRamp2(c(0,1, 50, 5597),c("#BCE784","#5DD39E", "#348AA7", "#525174"))#c("#EAE0CC","#C9ADA1","#4D6A6D"))# 
lgd = Legend(col_fun = col_fun, 
             title = "Frequency",
             direction = "horizontal",
             legend_width = unit(6, "cm"),
             at = c(1, 50, 100, 1000, 3000,5000))
pushViewport(viewport(width = 0.9, height = 0.9))
grid.rect()  # border
draw(lgd, x = unit(1, "cm"), y = unit(1, "cm"), just = c("left", "bottom"))
popViewport()

标签： rlegendheatmap