R中具有用户定义函数的直方图

Question

假设我编写了一个用户定义的函数来创建直方图：

sunny <- function(x,nadia) {
attach(nadia)
hist(x,  main="x", col="sea green", border="white",breaks=100)
}

现在我的问题是我想在图表上显示变量名称，但它没有出现。我尝试使用main = option，但它只显示字符x，因为它在引号中。如果有人能解决我的问题，我会非常高兴。谢谢！

Answer 1

可以通过使用以下堆栈溢出问题的答案间接回答您的问题：How to convert variable (object) name into String

应用于您的情况会产生以下代码：

sunny <- function(x,nadia) {
attach(nadia)
hist(x,  main=deparse(substitute(x)), col="sea green", border="white",breaks=100)
}