Функция построения в R

Question

У меня есть переменные в dataframe, и я пытаюсь построить функцию, которая позволяет мне строить переменную в данных без красноречивой записи, data$variablename.

plt=function(x){ 
    plot(data$date,as.name(paste("data$",x,sep="")),type="l",xlab="Population",ylab="Time") 
} 

R продолжает думать, что моя y-переменная является именем, а не переменной. Как я могу сказать, что вход оси y в функции plot является именем, а не фактической переменной?

Answer 1

Я хотел бы попробовать что-то вроде следующих (двух предложенных вариантов - раскомментирована один будет моим предпочтительным подходом):

plt <- function(x, data = mydf) { 
    x <- deparse(substitute(x)) 
# with(data, plot(date, get(x), type = "l", xlab = "Population", ylab = "Time")) 
    plot(data[, "date"], data[, x], type = "l", xlab = "Population", ylab = "Time") 
} 

При использовании data[, x], x должен быть вектор символов, следовательно, использование deparse(substitute(x)) в первой строке функции. Таким образом, вы должны ввести столбец y без кавычек. Я также добавил аргумент «data», чтобы указать, с каким набором данных вы имеете дело.

Попробуйте функцию с этим:

set.seed(1) 
mydf <- data.frame(date = 1:100, A = rnorm(100), B = rnorm(100), C = rnorm(100)) 

plt(A) 
plt(B) 
plt(C)