r - 如何从数据框列表中(有效地)创建箱线图？

Question

我有一些 data.frame s:

# Sample data
a <- data.frame(c(1:10), c(11:20))
names(a) <- c("A", "B")
b <- data.frame(sqrt(1:200), sqrt(201:400))
names(b) <- c("A", "B")
c <- data.frame(log2(1:500), log2(501:1000))
names(c) <- c("A", "B")

我想做 boxplot全部 data.frames (所以输出中应该有 6 个箱线图)

我尝试了以下代码:

abc <- list(a, b, c)
names(abc) <- c("a", "b", "c")
boxplot(abc$a[[1]], abc$a[[2]], abc$b[[1]],abc$b[[2]],abc$c[[1]],abc$c[[2]])

它奏效了，但它真的很笨拙。有没有更好的方法来做到这一点？

Answer 1

简短而甜蜜的答案绝对是@hrbrmstr 的评论。这是一个稍长的 ggplot解决方案。

library(reshape2)   # for melt(...)
library(ggplot2)
df <- lapply(names(abc),function(x)cbind(name=x,abc[[x]]))
df <- melt(do.call(rbind,df),id="name")
ggplot(df, aes(x=variable, y=value)) + geom_boxplot() + facet_grid(~name)