library(ggplot2)
library(ggpubr)
var_list <- rep(names(iris[1:4]),2)
plot_list <- list()
for (i in 1:8) {
p = ggplot(iris) +
geom_boxplot(aes_string(x=var_list[i]))
plot_list[[i]] = p
}
ggarrange(
plotlist = plot_list,
ncol=4,
nrow=2
)
bGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGdncHVicikKCnZhcl9saXN0IDwtIHJlcChuYW1lcyhpcmlzWzE6NF0pLDIpCnBsb3RfbGlzdCA8LSAgbGlzdCgpCmZvciAoaSBpbiAxOjgpIHsKICAgIHAgPSBnZ3Bsb3QoaXJpcykgKwogICAgICAgIGdlb21fYm94cGxvdChhZXNfc3RyaW5nKHg9dmFyX2xpc3RbaV0pKQogICAgcGxvdF9saXN0W1tpXV0gPSBwCn0KZ2dhcnJhbmdlKAogICAgcGxvdGxpc3QgPSBwbG90X2xpc3QsCiAgICBuY29sPTQsCiAgICBucm93PTIKKQ==