如何在ggplot2的facet_wrap(ncol=1)中为每个分面设置不同标题？

你遇到的错误原因是：ggtitle()是用于设置全局标题的函数，不支持传入动态函数为每个分面生成独立标题，因此触发类型转换错误。以下是两种可行的解决方案：

方案1：将分面标签替换为自定义标题 #

如果可以接受把分面顶部的标签替换成目标标题，直接通过facet_wrap的labeller参数实现：

1. 先创建变量与标题的映射关系：

title_mapping <- setNames(df$title, df$var)

2. 修改绘图代码：

ggplot(df, aes(x, y)) +
  geom_point() +
  facet_wrap(~ var, ncol = 1, labeller = labeller(var = title_mapping))

运行后，每个分面的顶部会直接显示对应分组的title列内容。

方案2：用patchwork拼接独立图表（实现完全独立的标题） #

如果需要分面标签和独立标题同时存在，或者要更灵活控制标题样式，使用patchwork包逐个绘制子图再拼接：

1. 安装并加载patchwork：

install.packages("patchwork")
library(patchwork)

2. 按var分组生成带独立标题的子图：

sub_plots <- lapply(unique(df$var), function(group_var) {
  filtered_df <- df[df$var == group_var, ]
  ggplot(filtered_df, aes(x, y)) +
    geom_point() +
    ggtitle(filtered_df$title[1]) # 提取当前分组的标题
})

3. 按列拼接所有子图：

wrap_plots(sub_plots, ncol = 1)

这种方式会生成和facet_wrap布局一致的图表，但每个子图拥有独立的ggtitle，满足不同分面设置不同标题的需求。

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