我想为我的数据创建一个聚类热图，基于MAPE聚类不同的模型和类别。（MAPE：0-10）小于红色的范围（MAPE 10，最多100），中间值为10。然而，当我尝试这样做时，它会导致热图只包含绿色颜色。

虚拟矩阵-假设我的数据看起来像这样：

matrix_heatmap <- matrix(1:16, nrow=4, ncol=4, 
                         dimnames=list(c("W", "X", "Y", "Z"), 
                                         c("A", "B", "C", "D")))
matrix_heatmap

字符串

自定义调色板和中断

colors <- colorRampPalette(c("green", "white", "red"))
number_breaks <- 6
breaks_green <- seq(from=min(matrix_heatmap), to=10, 
                    length.out=floor(number_breaks / 2))
breaks_red <- seq(from=10, to=quantile(matrix_heatmap, 0.95), 
                  length.out=ceiling(number_breaks / 2))
breaks <- unique(c(0, breaks_green, breaks_red))

custom_palette <- colors(number_breaks - 1)

custom_palette
breaks

型

heatmap(matrix_heatmap, 
        col=custom_palette, 
        breaks=breaks,
        cexRow=0.5, cexCol=0.5)
legend("topleft", legend=breaks, fill=custom_palette, title="legenda")

型