如何在Shiny中复用函数简化多类型绘图的重复代码？

你的代码核心逻辑高度重复，仅绘图类型、数据源和对应的输入前缀不同。可以通过创建一个通用的reactive工厂函数来提取重复逻辑，大幅减少冗余代码。

解决方案步骤： #

1. 编写一个工厂函数，接收绘图前缀（如bar/volcano）、数据源、绘图函数名作为参数
2. 动态获取对应的绘图函数和输入参数，避免硬编码
3. 统一处理labs_custom和theme_custom的参数注入

具体实现代码： #

1. 定义通用reactive工厂函数

make_plot_reactive <- function(plot_prefix, plot_data, plot_func_name) {
  reactive({
    # 动态获取绘图函数
    plot_func <- match.fun(plot_func_name)
    
    # 提取绘图函数的参数（排除第一个data参数），并匹配对应的input值
    func_args <- formals(plot_func)[-1]
    input_args <- lapply(names(func_args), function(arg) {
      input[[paste0(plot_prefix, "_", arg)]]
    })
    names(input_args) <- names(func_args)
    
    # 生成基础绘图对象
    p <- do.call(plot_func, c(list(plot_data), input_args))
    
    # 注入自定义labs
    labs_args <- list(
      title = input[[paste0(plot_prefix, "_labs_title")]],
      subtitle = input[[paste0(plot_prefix, "_labs_subtitle")]],
      caption = input[[paste0(plot_prefix, "_labs_caption")]],
      tag = input[[paste0(plot_prefix, "_labs_tag")]],
      x = input[[paste0(plot_prefix, "_labs_x")]],
      y = input[[paste0(plot_prefix, "_labs_y")]]
    )
    p <- p + do.call(labs_custom, labs_args)
    
    # 注入自定义theme（按theme_custom的参数顺序构造输入）
    theme_param_suffixes <- c(
      # X轴标题相关
      "axis.title.x_family", "axis.title.x_face", "axis.title.x_colour", "axis.title.x_size", "axis.title.x_hjust", "axis.title.x_angle",
      # Y轴标题相关
      "axis.title.y_family", "axis.title.y_face", "axis.title.y_colour", "axis.title.y_size", "axis.title.y_hjust", "axis.title.y_angle",
      # 主标题相关
      "plot.title_family", "plot.title_face", "plot.title_colour", "plot.title_size", "plot.title_hjust", "plot.title_angle",
      # 副标题相关
      "plot.subtitle_family", "plot.subtitle_face", "plot.subtitle_colour", "plot.subtitle_size", "plot.subtitle_hjust", "plot.subtitle_angle",
      # 说明文字相关
      "plot.caption_family", "plot.caption_face", "plot.caption_colour", "plot.caption_size", "plot.caption_hjust", "plot.caption_angle",
      # 标签相关
      "plot.tag_family", "plot.tag_face", "plot.tag_colour", "plot.tag_size", "plot.tag_hjust", "plot.tag_angle"
    )
    theme_args <- lapply(theme_param_suffixes, function(suffix) {
      input[[paste0(plot_prefix, "_", suffix)]]
    })
    names(theme_args) <- theme_param_suffixes
    
    p <- p + do.call(theme_custom, theme_args)
    
    return(p)
  })
}

2. 简化原有reactive定义

替换原来的bar和volcano reactive，只需两行代码：

bar <- make_plot_reactive("bar", bar_data, "plot_bar")
volcano <- make_plot_reactive("volcano", volcano_data, "plot_volcano")

关键说明： #

• 动态参数匹配：利用paste0(plot_prefix, "_", arg)自动匹配输入控件命名（需确保你的input控件严格遵循前缀_参数名的命名规则，比如bar_position对应plot_bar的position参数）
• 避免硬编码：用match.fun()和do.call()动态调用绘图函数，后续新增绘图类型时，只需调用make_plot_reactive传入对应参数即可，无需重复编写整套逻辑
• 扩展性：如果后续新增scatter、boxplot等绘图类型，只需保持输入命名规范，一行代码即可生成对应的reactive对象

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