从数据集循环绘图

Question

我有这个数据集：

x <- sample(80)
matrix <- matrix(x, ncol=5, nrow=16)
matrix <- cbind(matrix, c(rep("group1",4), rep("group2",4), rep("group3",4), rep("group4",4)))
colnames(matrix) <- c(letters[1:5], "groups")
df <- as.data.frame(matrix)

我希望能够使用 for 循环绘制五个箱线图，从 a 到 e 的每一列一个。 我已经尝试过了，但我不知道如何使它工作：

for(i in df[,1:5]) {
  p <- ggplot(df, aes(x=groups, y=as.numeric(as.character(i))))
  p +  geom_boxplot()
}

Answer 1

我猜这里：

library(reshape)
ggplot(melt(df, id.vars="groups")) + geom_boxplot(aes(x=groups, y=as.numeric(value))) + facet_wrap(~variable)

给予

和

library(reshape)
ggplot(melt(df, id.vars="groups")) + geom_boxplot(aes(x=groups, y=as.numeric(value)), color=variable)

给予

这是否接近你想要的？