绘制按列定义的分组条形图

Question

这是一个简单的条形图问题，但是当按列而不是按行进行分组时，我遇到了困难。我有一个数据框，其中每一列都有两个值。我试图做一个条形图，它使一列的每个值彼此相邻，然后是下一列的值，依此类推。此外，第一行的值应为红色，第二行的值应为绿色。

x1 <- c(23.5, 21.8, 13.5, 12.3, 11.1)
x2 <- c(14.5, 23.5, 9.0, 17.5, 6.7)

x3 <- rbind(x1,x2)
x4 <- as.data.frame(x3)

所以在图片中它应该是第一个值23.5和14.5，然后是21.8和23.5，依此类推。

Answer 1

这可以帮助您入门。

x1 <- c(23.5, 21.8, 13.5, 12.3, 11.1)
x2 <- c(14.5, 23.5, 9.0, 17.5, 6.7)
df <- as.data.frame(cbind(x1,x2))
my_cols = c("red","green")
barplot(t(df),beside=T,ylim=c(0,25), col = my_cols)

输出