Использование строк данных в качестве аргументов функции

Question

Я пытаюсь автоматизировать некоторые графики, не прибегая к традиционным циклам. Мне трудно понять, как передать элементы строки dataframe в качестве аргументов функции. Функция выглядит следующим образом:

makeline <- function(df, var, date, ylab="",xlab="", title="", nbershade=TRUE) { 
p <- ggplot(df, aes_string(x=date, y=var)) 
p <- p + geom_line() 

# do some other magical things 
} 

Допустим, у меня есть dataframe с рядом следующим образом:

row1 <- c("corn","Price","Date") 

Поскольку кукуруза является dataframe ggplot душил на ней как персонаж. Тогда я использовал кукурузу без кавычек и так как это dataframe с именами столбцов «Цена» и «Дата», я думал, что это будет работать:

mapply(makeline,row1[1],row1[2],row1[3]) 

Во всяком случае, я шарить пытается выяснить, эффективно использовать этот новая функция, не приводя к циклическому переходу по спискам. Любые указатели оценили.

Answer 1

Я не уверен, я бы рекомендовал это как стратегию, но вы можете использовать get добиться от data.frame

makeline <- function(df, var, date, ylab="",xlab="", title="", nbershade=TRUE) { 
    df <- get(df) 
    p <- ggplot(df, aes_string(x=date, y=var)) 
    p <- p + geom_line() 

# do some other magical things 
} 

Вам может понадобиться настроить окружающей среды для get, чтобы работать последовательно, но у него есть inherits = TRUE, который позаботится о большинстве вещей

data(mtcars) 
data(diamonds) 

Map(makeline, df = c('mtcars','diamonds'), var = c('cyl','x'), date = c('mpg','y')) 

Answer 2

попробовать это

mapply(makeline,get(row1[,1]),row1[,2],row1[,3])