Question

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

num

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

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

在这个例子中，我想要样本B中的顶部条和样本A中的最后一个条红色（标记为AA的单元格），但它最终会为完全不同的单元格着色。

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

Answer 1

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

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)

Answer 2

你想要一个＆＃34;组＆＃34;对于每个数据点，按计数排序。您只需要将颜色矢量重新排序为相同的顺序，这里使用索引编制。

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 个答案: