如何在R语言plot()中基于函数参数生成动态主标题？

你的问题核心是要准确获取传入的函数名称或者hold.at的实际值，而不是直接调用函数（这会返回函数对象本身，而非你想要的名称字符串）。咱们来修正代码，完美实现需求：

问题分析 #

你原来的代码里，当hold.at为NA时，直接返回了mean函数对象，而不是它的名称，所以paste之后会输出类似function (x, ...) UseMethod("mean")的内容，而非预期的"mean"。

解决方案 #

我们可以用deparse(substitute(FUN))来捕获传入的函数名称——它能把函数参数转换成对应的字符串。再结合hold.at的判断逻辑，就能构建出正确的主标题：

main.title <- function(FUN = mean, hold.at = NA){
  # 将传入的函数转换为名称字符串
  fun_label <- deparse(substitute(FUN))
  
  # 根据hold.at的状态生成主标题文本
  main_text <- if (is.na(hold.at)) {
    paste0("Function used: ", fun_label)
  } else {
    paste0("Held at: ", hold.at)
  }
  
  # 绘制图形并设置主标题
  plot(1, main = main_text)
}

测试示例 #

• 默认调用：main.title()，主标题会显示 Function used: mean
• 传入其他函数：main.title(FUN = median)，主标题显示 Function used: median
• 指定hold.at值：main.title(hold.at = 3.5)，主标题显示 Held at: 3.5

如果你的hold.at是多值向量（比如hold.at = c(2,4,6)），可以用toString()优化格式，把paste0行改成：

paste0("Held at: ", toString(hold.at))

这样会显示 Held at: 2, 4, 6，可读性更强。

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