如何用函数生成格式统一的ggplot图形？

1. 封装重复代码为自定义函数 #

把数据过滤、绘图的重复逻辑打包成函数，只传入每个图独有的参数（目标outcome值、图标题）：

# 加载依赖包
library(tidyverse)
library(patchwork)

# 定义绘图函数
plot_logit_outcome <- function(data, target_outcome, plot_title) {
  data %>%
    filter(outcome == target_outcome, term != "(Intercept)") %>%
    ggplot(aes(x = estimate, y = term)) +
    geom_point(aes(color = treat), size = 2) +
    facet_wrap(~ treat, nrow = 2, labeller = as_labeller(condition_labels)) +
    labs(title = plot_title)
}

2. 快速生成单个图形 #

调用函数即可生成指定图形，无需重复编写过滤和绘图的冗余代码：

p1 <- plot_logit_outcome(logit_results, "Time_Sport", "Time for sports")
p2 <- plot_logit_outcome(logit_results, "Money_Sport", "Money for sports")
# 另外两个图形同理，替换参数即可
p3 <- plot_logit_outcome(logit_results, "XXX", "XXX标题")
p4 <- plot_logit_outcome(logit_results, "YYY", "YYY标题")

3. 批量生成并合并所有图形 #

如果要一次性处理4个结果，用purrr的批量映射功能更高效：

# 创建包含所有outcome和对应标题的表格
outcome_info <- tibble(
  target_outcome = c("Time_Sport", "Money_Sport", "XXX", "YYY"),
  plot_title = c("Time for sports", "Money for sports", "XXX标题", "YYY标题")
)

# 批量生成所有图形
plot_list <- map2(outcome_info$target_outcome, outcome_info$plot_title, 
                  ~plot_logit_outcome(logit_results, .x, .y))

# 合并成组合图（示例为2行2列布局，可按需调整nrow/ncol）
combined_plot <- wrap_plots(plot_list, nrow = 2, ncol = 2)
# 查看最终组合图
combined_plot

核心优势 #

• 样式修改只需操作一次：后续要调整点大小、颜色映射、分栏布局等，只需要修改函数内部代码，所有生成的图形会同步更新，不用逐个修改4次。
• 扩展性强：新增结果时，只需在outcome_info里添加一行数据即可，无需重复复制绘图代码。

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