4

我有一个 4 列的输入数据框。

test <- head(mtcars[,c(1,2,8,9)])
test
                   mpg cyl vs am
Mazda RX4         21.0   6  0  1
Mazda RX4 Wag     21.0   6  0  1
Datsun 710        22.8   4  1  1
Hornet 4 Drive    21.4   6  1  0
Hornet Sportabout 18.7   8  0  0
Valiant           18.1   6  1  0

使用 for 循环，我想绘制mpgvs cyl，然后是mpgvs vs，然后是mpgvs am，在同一页面上生成 3 个不同的图。

我的代码（灵感来自Multiple ggplots on one page using a for loop 和 grid.arrange和ggplot2 ：使用循环在一页上打印多个图）：

library(ggplot2)
library(gridExtras)

plot_list <- list()
for(i in 2:ncol(test)){
   plot_list[[i]] <- ggplot(test, aes(x=test[,i], y=mpg, fill=test[,i])) + 
   geom_point()
}
grid.arrange(grobs=plot_list)

输出：

Error in gList(list(wrapvp = list(x = 0.5, y = 0.5, width = 1, height = 1,  :
  only 'grobs' allowed in "gList"
4

1 回答 1

4

规范的方法是刻面：

test <- head(mtcars[,c(1,2,8,9)])
library(reshape2)
test <- melt(test, id.vars = "mpg")
library(ggplot2)
ggplot(test, aes(x = value, y = mpg, fill = value)) +
  geom_point() +
  facet_wrap(~ variable, ncol = 1)

如果您已准备就绪：

library(gridExtra)
plot_list <- list()
test <- head(mtcars[,c(1,2,8,9)])
for(i in 2:ncol(test)){
    plot_list[[i-1]] <- ggplotGrob(ggplot(test, aes(x=test[,i], y=mpg, fill=test[,i])) + 
    geom_point())
}
do.call(grid.arrange, plot_list)
于 2018-05-16T12:51:53.543 回答