r - 一张图中多个标签的多个箱线图

Question

我有如下内容:

x <- 1:5
y <- 2:6

A <- matrix(NA,nrow=100,ncol=5)
for(i in 1:5){A[,i] <- rnorm(100,x[i],y[i])}

B <- matrix(NA,nrow=100,ncol=5)
for(i in 1:5){B[,i] <- runif(100,min=x[i],max=y[i])}

以下命令为矩阵 A 的 5 列创建一个箱线图:

boxplot(A[,1:5])

我现在想做的是有一个这样的箱线图，其中 A 列的每个箱线图都绘制在 B 对应列的箱线图旁边。箱线图应该直接相邻，并且在第 1 列到第 5 列的成对箱线图之间应该有一个小距离。

提前致谢!

Answer 1

按列将您的矩阵绑定(bind)在一起，插入 NA 列:

C <- cbind(A[,1],B[,1])
for ( ii in 2:5 ) C <- cbind(C,NA,A[,ii],B[,ii])

(是的，这当然不是最优雅的方式 - 但可能是最简单和最容易理解的方式。)

然后绘制箱线图并添加轴标签:

boxplot(C,xaxt="n")
axis(1,at=1+3*(0:4),labels=rep("A",5),tick=FALSE)
axis(1,at=2+3*(0:4),labels=rep("B",5),tick=FALSE)
axis(1,at=1.5+3*(0:4),labels=1:5,line=2,tick=FALSE)