如何在R中为lapply批量生成的多个直方图快速添加x轴标签

原代码x轴标签异常是因为qplot()默认把传入的mtcars[[col]]表达式作为标签，你可以通过xlab参数自定义标签，推荐直接绑定对应列名作为x轴标签，修改后代码如下：

list <- lapply(1:ncol(mtcars), function(col) {
  ggplot2::qplot(mtcars[[col]], geom = "histogram", binwidth = 1) +
    ggplot2::xlab(colnames(mtcars)[col])
})
cowplot::plot_grid(plotlist = list)

如果需要统一设置所有直方图的x轴标签，直接替换xlab()内的内容即可，比如设置为xlab("观测值")；需要调整y轴标签时额外加ylab("频数")参数即可。

内容的提问来源于stack exchange，提问作者Josette Rosine Aniwuvi Gbeto