R自定义函数 - 在标题中包含参数值

Question

我已经编写了一个基本的自定义函数来生成一些图表：

gw_chart <- function(variable) {
hist(variable, prob = T)
lines(density(variable, na.rm = T))
rug(jitter(variable))
qqPlot(variable, main = ("QQ-Plot"))
}

当我键入gw_chart(age)时，其中age是数据框中的变量，该函数会生成两个图表，但直方图的标题基于默认值hist() - ＆gt; “变量直方图”，xlabel是可变的。

我如何得到变量的值 - 在这种情况下：年龄 - 代替显示？

我也想自定义qqplot的标题。

由于

Answer 1

gw_chart <- function(variable) {

  lab <- deparse(substitute(variable))
  hist(variable, prob = T, main= paste("histogram of", lab))
  lines(density(variable, na.rm = T))
  rug(jitter(variable))
  qqPlot(variable, main= paste("QQplot of", lab))

 }