在 R 中创建分组堆叠条的简单方法

Question

我有两个 3x2 矩阵 A 和 B：

答：

          n2  n3
Part1     1   5
Part2     2   6
Part3     3   7

乙：

          n2  n3   
Part1     5   1 
Part2     6   2   
Part3     7   3  

我想根据列 n2、n3 为 A 和 B 创建堆叠条，然后对堆叠条进行分组，使得 A 的 n2 和 B 并排分组在一起，n3 相同。这是我尝试过的：

  d1 <- read.csv("A.csv", header=T, dec=".",sep = " ")
  d1 <- subset(d1, select = c(n2, n3))

  d2 <- read.csv("B.csv", header=T, dec=".",sep = " ")
  d2 <- subset(d2, select = c(n2, n3))

  d <- cbind(d1[,1],d2[,1],d1[,2],d2[,2])

  barplot(t(d), beside=T, ,col=c("lawngreen","firebrick","deepskyblue"),
          space=c(0,0,0.2,0))

它会产生：

哪些条被分组，但没有堆叠，颜色也被误用。当我将条形图更改为以下内容时，它会生成以下图：

   barplot(t(d), col=c("lawngreen","firebrick","deepskyblue"), 
           space=c(0,0,0.2,0))

错误堆叠和错误分组的条形图。如果您能帮我解决这个问题，我将不胜感激，因为我是 R 新手：/

Answer 1

barplot() 使用输入矩阵的列对条形图进行分组。以此为数据：

> (d <- matrix((1:7)[-4],ncol=2)[,c(1,2,2,1)])
     [,1] [,2] [,3] [,4]
[1,]    1    5    5    1
[2,]    2    6    6    2
[3,]    3    7    7    3

你可以从你之前的代码中去掉转置：

barplot(d, col=c("lawngreen","firebrick","deepskyblue"), space=c(0,0,0.2,0))