ggplot2网格绘制多直方图无输出：问题修复方法咨询

你的代码有两个核心问题导致无图形输出：

1. par(mfrow = c(4,8))是base R绘图系统的布局参数，ggplot2基于独立的grid绘图系统，完全不识别这个设置，所以网格布局根本没生效。
2. 循环中生成的ggplot对象没有被显式打印——在脚本或循环环境下，ggplot不会自动渲染图形，必须用print()函数触发绘制。

下面提供两种可行的修复方案：

方法一：修复循环并统一排版 #

推荐用patchwork包（ggplot生态的专业排版工具）来收集并排列所有直方图，比循环打印更可控：

# 若未安装patchwork，先执行安装
# install.packages("patchwork")
library(patchwork)

cols <- t$label
plot_list <- list()

# 循环生成每个直方图并存入列表
for (i in cols) {
  p <- df |>
    dplyr::filter(label == i) |>
    dplyr::select(count_col) |>
    ggplot2::ggplot(ggplot2::aes(x = count_col)) +
    ggplot2::geom_histogram() +
    ggplot2::ggtitle(i)
  plot_list[[i]] <- p
}

# 将所有图形排成4行8列
wrap_plots(plot_list, nrow = 4, ncol = 8)

如果不想额外装包，也可以在循环中直接打印每个图形（注意默认边距可能需要调整）：

for (i in cols) {
  p <- df |>
    dplyr::filter(label == i) |>
    dplyr::select(count_col) |>
    ggplot2::ggplot(ggplot2::aes(x = count_col)) +
    ggplot2::geom_histogram() +
    ggplot2::ggtitle(i)
  print(p)  # 必须显式调用print才会输出图形
}

方法二：用分面（facet）实现（更简洁高效） #

这是ggplot2的原生解决方案，无需循环，直接按label字段分面，代码更简洁且性能更优：

df |>
  ggplot2::ggplot(ggplot2::aes(x = count_col)) +
  ggplot2::geom_histogram() +
  ggplot2::facet_wrap(~label, nrow = 4, ncol = 8) +  # 指定分面的行列数
  ggplot2::theme(strip.text = ggplot2::element_text(size = 8))  # 可选：缩小分面标题，避免文字重叠

内容的提问来源于stack exchange，提问作者Eisen