使用barplot（）在R中按组对堆叠的条形图进行颜色编码

Question

My goal is to create a stacked barplot in R from a matrix, where each column in the matrix is a bar with a different color, and each bar represents the sum of all rows in the column.

Here's dummy data and bar plot scripts I'm using to trouble shoot:

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

If I only plot row 1, colors are assigned correctly

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

If I plot rows 1-3 w/o designating colors, data is stacked correctly:

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

If I plot rows 1-3 with BESIDE=TRUE, color codes correctly (but obviously is not stacked)

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

If I attempt to plot rows 1-3, data stacks correctly, but color coding is not applied as needed:

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

Any suggestions?

Answer 1

Try this

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

Each row of your data matrix will take on a single color