Как использовать строку в качестве кода R

Question

следующие работы:

plot(Sepal.Length ~ Petal.Width, data = iris) 
abline(lm(Sepal.Length ~ Petal.Width, data = iris)) 

Но следующий код не работает:

str = "Sepal.Length ~ Petal.Width, data = iris" 
plot(str) 
abline(lm(str)) 

я пытался deparse (заменить), as.forumla и Eval, но они делают не работа.

Answer 1

Использование str от вопроса попробуйте следующее:

# fun and args should each be a character string 
run <- function(fun, args) eval(parse(text = sprintf("%s(%s)", fun, args))) 

run("plot", str) 
abline(run("lm", str)) 

Или попробуйте это:

`%(%` <- function(fun, args) run(deparse(substitute(fun)), args) 
plot %(% str 
abline(lm %(% str) 

Обратите внимание, что этот подход может справиться с ситуацией, где есть запятые в качестве аргумента (в отличие от аргумента разделители) и не использует никаких внешних пакетов.

Answer 2

Попробуйте разобрать аргументы и создать их:

fun_str<- function(fun, str_arg){ 
    ## split args separted by comma 
    m <- as.list(strsplit(str_arg,',')[[1]]) 
    args <- lapply(m,function(x){ 
     ## remove any extra space 
     arg = str_trim(strsplit(x,'=')[[1]]) 
     if (arg[1]=="data") get(arg[2],parent.frame()) 
     else if (grepl('~',x)) as.formula(x) 
    }) 
    do.call(fun,args) 
} 

Затем вызовите его:

fun_str("plot",str) 
fun_str("lm",str) 

Answer 3

Вот еще одна альтернатива. Вы можете использовать объект call для представления аргумента data, а затем оценить его в списке аргументов.

f <- formula("Sepal.Length ~ Petal.Width") 
cl <- call("=", "data", iris) 
plot(f, eval(cl)) 
abline(lm(f, eval(cl))) 

Похоже, что это альтернативное решение также будет работать с оригинальным str вектором.

str <- "Sepal.Length ~ Petal.Width, data = iris" 
s <- strsplit(str, ", data = ")[[1]] 
with(setNames(as.list(s), c("formula", "data")), { 
    getd <- get(data, parent.frame()) 
    plot(f <- formula(formula), data = getd) 
    abline(lm(f, data = getd)) 
})