R-以变量作为X轴名称的绘图函数

我有一个简单的函数，它将创建传递变量的直方图，但是我想让该函数将直方图图命名为“X的直方图”，其中X是变量的名称

我还希望它将X轴命名为变量的名称

我该怎么做

以下是当前的函数，但没有给出我想要的正确标签：

plot.histogram <- function (x){
  hist(x, main = "Histogram of x", xlab = "x")
}

---

plot.histogram用于调整文本的时间。找到此SO帖子：

sweet=rnorm（100）
指定
main=“x的直方图”和
xlab=“x”
时的plot.histogram，这意味着直方图将始终使用这些精确的短语进行标记。您是否知道，仅
hist（x）
一项就可以提供您所要求的输出？是的，我知道它会提供该输出。我真正想要的是如何用传递的变量名来标记函数中的内容。这并不是说我一定要使用这个函数，我只是想学习如何根据函数中传递的变量的名称来分配事物的标签。谢谢ping，这正是我要寻找的。接下来，如果我尝试将这个函数用作apply（）语句的一部分，它不会保留名称。有什么建议吗？应用（df，2，plot.histogram）。它重命名每个newX[，1]，而不是放置正确的labels@nate-thompson您是否希望对data.frame的所有列应用plot.histogram函数？hist函数对非数值columnsCorrect不起作用，这就是我想要做的。我的整个数据集都有数字列，它为我提供了每列的直方图输出，但每个图形的标题和标签都是完全相同的“newX的直方图[，1]，很抱歉在这个问题上回复得太晚。与其使用apply函数，不如使用一个简单的for循环。
for（i in 1:length（x））{x[，plot.histogram（.SD），.SDcols=c（i）]}
sweet = rnorm(100)

plot.histogram <- function (x){

    hist(x, main = paste("Awesome Histogram of",substitute(x)), xlab = paste(substitute(x)))
}

plot.histogram(sweet)

x = data.table( 'first'=rnorm(100),'second'=rnorm(100),'third'=rnorm(100))
plot.histogram <- function (x){
    if( is.null(names(x) ) ){
        mname = substitute(x)  
        hist(x, main = paste("Histogram of", mname ), xlab = paste( mname ))
    }else{
        mname = names(x)
        hist(x[[mname]], main = paste("Histogram of", mname ), xlab = paste( mname ))
    }
}
x[ , plot.histogram(.SD), .SDcols=c(1) ]