通過函數傳遞子集參數子集

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')