考虑一个简单的函数，它将一个ggtitle添加到grob中
f <- function(PLOT, TITLE) {
PLOT + ggtitle(TITLE)
}
直接调用该函数可以按预期工作。
但是，通过调用函数 do.call(f, ..) 抛出错误时 TITLE 是一个 language 目的
## Sample Data
TIT <- bquote(atop("This is some text", atop(italic("Here is some more text"))))
P <- qplot(x=1:10, y=1:10, geom="point")
## WORKS FINE
f(P, TIT)
## FAILS
do.call(f, list(P, TIT))
## Error in labs(title = label) : could not find function "atop"
这当然只发生在 TIT 是一个语言对象
TIT.char <- "This is some text\nHere is some more text"
do.call(f, list(P, TIT.char))
## No Error
怎么能 do.call() 参数是语言对象时是否正确使用？