将函数强制转换为 R 中 plot() 主标题的字符

Question

我正在尝试根据函数的两个参数为我的plot() 制作一个main 标题（请参阅if 声明）。具体来说，我希望在FUN 或hold.at 前面使用的任何内容都恰好出现在main 标题中。

例如，下面我希望main 的标题是单词mean，但我的试验没有成功。

这可以在 R 中实现吗？

main.title <- function(FUN = mean, hold.at = NA){

main <- if(is.na(hold.at)) mean else hold.at 

plot(1, main = paste0("held at: ", main)) 
}
# Example:
main.title()

Answer 1

我们可以deparseFUN

main.title <- function(FUN = mean, hold.at = NA){
     v1 = deparse(substitute(FUN))
     main <- if(is.na(hold.at)) v1 else hold.at 

     plot(1, main = paste0("held at: ", main)) 
}


main.title()

main.title(hold.at = "Other")