Добавить имя 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)