Question

我是R.的新手我尝试使用lapply在每个子列表中绘制数据（df，list）。我写过这个函数：

group.box <- function(x) {
   lapply(X = x, FUN = boxplot)
}

在包含6个子列表的列表上运行它，为我提供了6个单独的boxplot图（6个独立的图）和本文：

$sublist1
NULL

$sublist2
NULL

$sublist3
NULL

...

我尝试将这些图组合成一张带有6张图的图片：

par(mfrow=c(2,3))
group.box(data)
dev.off()

但是我只得到没有图表的文本（如上所示）。我想也许我应该将这6个图表导出到一个pdf文件中。

谢谢！

Answer 1

你可以尝试

data <- data.frame(a = rnorm(100), b = rnorm(100), c = rnorm(100), d = rnorm(100), e = rnorm(100), f = rnorm(100))

group.box <- function(x, plot_row, plot_col) {
    quartz()
    par(mfrow=c(plot_row,plot_col))
    lapply(X = x, FUN = boxplot)
}

group.box(data, 2,3)

您当然可以使用png(...)或pdf(...)等代替quartz()

Boxplot列表的子列表

1 个答案: