使用barplot（）在R中按組對堆疊的條形圖進行顏色編碼

Question

我的目標是根據矩陣在R中創建一個堆疊的條形圖，其中矩陣中的每一列都是具有不同顏色的條形，每個條形代表該列中所有行的總和。

這是我用來排除故障的虛擬數據和條形圖腳本：

m = matrix(1:9, ncol = 3, byrow = TRUE)
v = matrix(c("red", "blue", "green"), ncol=3, nrow=3, byrow=TRUE)
m #matrix of values
v #matrix of colors for each point

如果僅繪制第1行，則顏色分配正確

barplot(m[1,], col=v[1,])

如果我繪制1-3行而不指定顏色，則數據正確堆疊：

barplot(m[c(1:3),])

如果我用BESIDE = TRUE繪制第1-3行，則顏色代碼正確（但顯然沒有堆疊）

barplot(m[c(1:3),], col=v[c(1:3),], beside = TRUE)

如果我嘗試繪制第1-3行，則數據可以正確堆疊，但是未根據需要應用顏色編碼：

barplot(m[c(1:3),], col=v[c(1:3),])

有什么建議么？

Answer 1

嘗試這個

v <- c("red","blue","green")
barplot(m, col=v, beside=FALSE)

數據矩陣的每一行將采用單一顏色