堆积条形图，为单个单元格着色答案

【问题标题】：Stacked barchart, coloring individual cells堆积条形图，为单个单元格着色
【发布时间】：2016-01-26 19:14:51
【问题描述】：

我正在尝试创建一个堆叠条形图，但单个单元格的颜色基于单独的值。这是我正在使用的示例数据集：

count sample label
50      A    DD
20      A    BB
20      A    CC
10      A    AA
20      B    JJ
20      B    LL
10      B    BB
15      B    CC
30      B    AA
5       B    HH

我正在使用以下代码创建绘图并为我想要着色的单元格着色，但它为错误的单元格着色。我不知道为什么：

Library(lattice)
data$rank <- rank(data$count)
colVec <- rep("white", nrow(data))
colVec[data$label == "AA"] <- "red"
barchart(count ~ sample, groups = as.factor(rank), stack = TRUE, data = data, 
    as.table = TRUE, col = colVec, ylab = "Counts")

在此示例中，我希望样本 B 中的顶部栏和样本 A 中的最后一个栏着色为红色（带有标签 AA 的单元格），但它最终会为 5 个完全不同的单元格着色。

我希望使用此代码的真实数据集包含数千个示例条目，因此我无法使用手动方法。

【问题讨论】：

标签： r bar-chart stacked

【解决方案1】：

您希望每个数据点都有一个“组”，按计数排序。您只需将颜色矢量重新排序为相同的顺序，并在此处完成索引。

g <- order(data$count)
colVec <- ifelse(data$label=="AA","red","white")[g]
barchart(count ~ sample, groups = factor(1:10,levels=g), 
  stack = TRUE, data = data, col=colVec)

【讨论】：

【解决方案2】：

组部分定义条形图的堆叠部分如何命名和排序。因此，您需要创建一个新的分组向量，该向量对每个框都有唯一的名称，并按您想要的顺序排序。然后你可以适当地设置颜色向量。

data$label2 <- paste(data$label, data$sample)
data$label2 <- reorder(data$label2, data$rank)
colVec = rep("white", length(levels(data$label2)))
colVec[grepl('AA', levels(data$label2))] = "red"
barchart(count ~ sample, groups = label2, stack = TRUE, data = data, as.table = TRUE, ylab = "Counts", col=colVec)

【讨论】：

谢谢，但现在条形图出现故障了。抱歉，我应该指定我需要每个条形顶部的最大单元格，然后下降到最小的。
已修复以保留排序。