在R中創建分組堆積條形的簡單方法

Question

我有兩個3x2矩陣A和B：

A：

          n2  n3
Part1     1   5
Part2     2   6
Part3     3   7

B：

          n2  n3   
Part1     5   1 
Part2     6   2   
Part3     7   3  

我想基於A和B的n2，n3列創建堆疊的條，然后將堆疊的條分組，以便將A和B的n2並排分組，而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))

錯誤地堆疊和錯誤分組的條。 如果您是我的新手，請幫助我解決此問題，我們深感感謝：

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))