Question

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

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

我该怎么做？

这是当前的功能，但没有给出我想要的正确标签：

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

由于

Answer 1

当您需要调整文本时。找到这个SO帖子：Name of Variable in R

sweet = rnorm(100)

plot.histogram <- function (x){

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

plot.histogram(sweet)

已更新以使用data.table

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) ]

R - 绘图函数，变量为X轴名称

1 个答案: