r - 为函数中的每一列添加 xlab 的名称

Question

在这个函数中，我想添加测试变量的列名。我不知道如何编码。欣赏指教! :)

set.seed(8)
score1 <- sample(1:100,6)
score2 <- sample(1:100,6)
score3 <- sample(1:100,6)
x <- sample(101:200,6)
df <- data.frame(score1, score2, score3, x)

test <- function(i){
  plot(df[,i], df[,4], xlab=colnames(df[,i]), ylab="x")
}
test(1)
test(2)
test(3)

然后我想得到:

Answer 1

当您使用索引对列进行子集化时，没有附加列名。

df[, 1]
#[1] 96 52 55 79 12 42

colnames(df[, 1])
#NULL

因此，您将获得图中的默认 x 轴。

使用索引对列名进行子集。

test <- function(i){
   plot(df[,i], df[,4], xlab=colnames(df)[i], ylab="x")
 }

test(2)