堆叠条形图，为单个单元格着色
堆叠条形图，为单个单元格着色
提问于 2016-01-27 03:14:52
我正在尝试创建一个堆叠的条形图，但单个单元格基于单独的值进行着色。这是我正在使用的一个示例数据集：
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个完全不同的单元格上色。
我希望使用此代码的真实数据集有数千个样本条目，因此我不能使用手动方法。
回答 2
Stack Overflow用户
发布于 2016-01-27 04:00:18
组部分定义条形图的堆叠部分的命名和排序方式。因此，您需要创建一个新的分组向量，它为每个框提供唯一的名称，并按您希望的顺序进行排序。然后你就可以适当地设置颜色矢量了。
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)Stack Overflow用户
发布于 2016-01-27 05:44:09
您希望每个数据点都有一个按计数排序的“组”。你只需要将你的颜色向量重新排序到相同的顺序，在这里完成索引。
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)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/35021972
复制相关文章
相似问题
腾讯云开发者
