R条件着色中的堆积条形图

Question

我正在处理R中的数据框，看起来像这样

test <- data.frame(c(1:4),c(5:8),c(9:12),c(13:16))
names(test) <- c("position","totalA","totalB","totalC")

不，我想创建一个堆积的条形图，其中所有条形图都是黑色的，除了1个位置值，我想要'totalA'，'totalB'和'totalC'的不同颜色

这就是我创建条形图

所做的

test.transposed <- setNames(data.frame(t(test[,-1])), test [,1])
barplot(as.matrix(test.transposed))

所以现在所有的条都是有条件的颜色，但这应该只是当位置== 2时的情况。其余的条都应该是黑色。

注意我不能用ggplot2来做这个......

Answer 1

这是一种愚蠢的方式：

test.transposed2 <- rbind(test.transposed, 'total' = apply(test.transposed,2,sum))
test.transposed2[1:3, -2] = 0
test.transposed2[4,2] = 0
barplot(as.matrix(test.transposed2[c(4,1,2,3),]))