r - 如何制作漂亮的定性条形组成图

Question

这是我的数据:

ind <- c( rep(1, 20), rep (2, 20), rep (3, 20), rep(4, 20))
bar <- c(rep(rep(1:4, each = 5),  4))

mark <- c(rep ("A", 5), rep("B", 5), rep("C",5), rep("D",5),
          rep("B", 20), rep("C", 20), "A", "B", "C", "A", "C","A",
          "D", "D", "D", "D","A", "C", "C", "A", "B", "B","B",
          "C","C","C")

dataf <- data.frame(ind, bar, mark)

每个人 (ind) 有 4 个按顺序排列的条形，并且是彩色的。人与人之间应该有更大的空间。我可能有任意数量的个人。下面用excel绘制的预期图形，我想用R创建更漂亮的图形。



请注意，每个 ind 级别(1:4)为四个小节(1:4)。每个 ind 的所有四个条都集中在一个地方。

Answer 1

您可以尝试使用 rect函数来单独绘制每个矩形。尝试运行一个循环来遍历堆栈中的每个框:

par(mfrow=c(2, 2))

for(i in unique(ind)) {
  plot(0, col=0, bty="n", xaxt="n", yaxt="n", xlab = i, ylab = "", xlim=c(0, 5), ylim=c(-6, -1))
  for(j in 1:4) {
    for(k in 1:5) {
      rect(j-0.4, -k-1, j+0.4, -k, col = which(unique(mark)==matrix(mark[ind==i], 5, 4)[k,j])+1, border = rgb(0,0,0,0))
      text(j, -k-0.5, labels = matrix(mark[ind==i], 5, 4)[k,j])
    }
    rect(j-0.4, -6, j+0.4, -1)
  }
}