1

我正在尝试创建一个heatmap指标。我已经在 SO 上使用了多个问题来做到这一点，但我的解决方案似乎是独一无二的。我正在跟踪 3 列：OTD、TAT和DIH。我想为这些列中的每一列设置颜色中断，但我需要它们不同。

IE

OTD Column: Red < 85, 85 <= Yellow < 90, Green >=90
TAT Column: Red > 16, 15 > Yellow <= 16, Green <= 15
DIH Column: Red > 27, 25 > Yellow <= 27, Green <= 25

col_breaks似乎适用于整个地图，我不确定如何根据需要操作此功能。任何帮助将不胜感激。请参阅下面的代码和输出图片。

Heat <- select(Shipments, Customer.Name, OTD, TAT, Total.TAT, Shipped.Qty)
Heat <- Heat[, list(OTD=mean(OTD),TAT=mean(TAT),DIH=mean(Total.TAT),Shipped=sum(Shipped.Qty)),by=Customer.Name]
Heat <- arrange(Heat, desc(Shipped))
Heat <- head(Heat,5)
Heat <- data.frame(Heat)
row.names(Heat) <- Heat$Customer.Name
Heat <- Heat[,2:4]
Heat$OTD <- Heat$OTD*100
Heat <- round(Heat,1)
Heat_matrix <- data.matrix(Heat)

my_palette <- colorRampPalette(c("#D20000","#F6FC00","#009A00"))(n = 299)
col_breaks <- c(seq())

heatmap.2(Heat_matrix,
          cellnote = Heat_matrix,
          notecol = "black",
          notecex = 2,
          trace = "none",
          density.info = "none",
          key = FALSE,
          scale = "column",
          margins = c(10,10),
          col = my_palette,
          dendrogram = "none",
          Colv = FALSE,
          Rowv = FALSE)

下图是输出。它没有我想要的颜色序列。

当前状态

4

0 回答 0