r - R：如何将两个箱形图并排放置，同时保持相同的 y 范围？

Question

假设我有两个数据集，一个具有 y 范围 [min0:max0]，另一个具有 y 范围 [min1:max1]。如何使用合理的 y 范围 [min(min0, min1):max(max0, max1)] 将两个箱形图放在一个相邻的图中？

这是我尝试过的：

d0 <- matrix(rnorm(15), ncol=3)
d1 <- matrix(rnorm(15), ncol=3)

par(mfrow = c(1, 2))
boxplot(d0)
usr <- par("usr")
plot.new()
par(usr = usr)
boxplot(d1, add = TRUE)

但这只会保留第一个图的 y 范围并挤压两个图，而我希望它们是正方形的。

有任何想法吗？

Answer 1

d0 <- matrix(rnorm(15), ncol=3)
d1 <- matrix(rnorm(15), ncol=3)

# Using base R graphics
lmts <- range(d0,d1)

par(mfrow = c(1, 2))
boxplot(d0,ylim=lmts)
boxplot(d1,ylim=lmts)

您可能还想考虑一种使用网格图形的方法，通过lattice或ggplot2包。

这是 ggplot2 中的一次尝试：

# Using ggplot2
library(ggplot2)
d <- data.frame(d.type=c(rep(0,15),rep(1,15)),sub.type=rep(c('A','B','C'),10),val=rnorm(30))

p <- ggplot(d, aes(factor(sub.type), val)) 
p + geom_boxplot() + facet_grid(. ~ d.type)

在格子中：

# Using lattice
library(lattice)
bwplot(~ val|sub.type+d.type ,d)

请注意基于网格的解决方案如何让您不必指定限制；您指定结构，其余的由软件完成。