通过函数传递子集参数子集

Question

我想有它调用subset的功能，并传递一个subset说法：

df <- data.frame(abc=c("A","A","B","B"),value=1:4) 
subset(df,abc=="A") 
## works of course: 
# abc value 
#1 A  1 
#2 A  2 

mysubset <- function(df,ssubset) 
    subset(df,ssubset) 

mysubset(df,abc=="A") 
## Throws an error 
# Error in eval(expr, envir, enclos) : object 'abc' not found 

mysubset2 <- function(df,ssubset) 
    subset(df,eval(ssubset)) 

mysubset2(df,expression(abc=="A")) 
## Works, but needs expression 

我substitute尝试过，但没能找到合适的组合。我怎样才能得到这个工作？

Answer 1

你需要eval()和parse()在那里了：

mysubset <- function(df, ssubset) { 
    subset(df, eval(parse(text=ssubset))) 
} 
mysubset(df, "abc=='A'") 
# abc value 
# 1 A  1 
# 2 A  2 

请注意，您需要嵌套引号，所以来回切换"并在必要时'之间。

---

基于您的评论，也许这样的事情是兴趣也：

mysubset <- function(df, ...) { 
    ssubset <- deparse(substitute(...)) 
    subset(df, eval(parse(text = ssubset))) 
} 

用法：mysubset(df, abc=='A')