आर,%

Question

मैं कैसे एक समारोह सवाल here के समान में एक स्तंभ नाम पारित कर सकते हैं में dplyr :: फिल्टर() और% का उपयोग कर, लेकिन एक साथ dplyr श्रृंखलन और filter() का उपयोग कर %in% साथ कार्य करने के लिए तर्क के रूप में स्तंभ नाम गुजरती हैं।

require(dplyr) 
set.seed(8) 
df <- data.frame(
    A=sample(c(1:3), 10, replace=T), 
    B=sample(c(1:3), 10, replace=T)) 

हैं जहां स्तंभ एक 1 या 2 मैं क्या कर सकता है पंक्तियों प्राप्त करना चाहते हैं:

df %>% filter(A %in% c(1,2)) 

मैं:

A B 
1 2 3 
2 1 2 
3 1 3 
4 2 1 
5 1 1 
6 1 3 

अब, मैं कैसे एक समारोह में इस डाल सकते हैं , जहां कोई कॉलम निर्दिष्ट कर सकता है, यह काम नहीं करता है:

fun1 <- function(x, column, n){ 
    res <- 
    x %>% filter(column %in% n) 
    return(res) 
} 
fun1(df, A, c(1,2)) 

Answer 1

आप

fun1 <- function(x, column, n){ 
x %>% 
    filter_(lazyeval::interp(quote(x %in% y), x=as.name(column), y=n)) 
} 
fun1(df, 'A', 1:2) 

या

fun2 <- function(x, column, n){ 
    args <- as.list(match.call()) 
    x %>% 
    filter(eval(args$column, x) %in% n) 
} 

fun2(df, A, 1:2) 

Answer 2

आप अपने समारोह रखना चाहते हैं की कोशिश कर सकते, कोशिश:

fun1 <- function(x, column, n){ 
    res <- x %>% filter_(paste(column,"%in%",n)) 
    return(res) 
} 

fun1(df, "A", "c(1,2)") 

Answer 3

fun1 <- function(x, column, n){ 
    require(lazyeval) 
    filter_(x, 
     interp(quote(col %in% n), 
      col = lazy(column), n = n)) 
} 

all(fun1(df, A, c(1, 2)) == filter(df, A %in% c(1,2))) 
# TRUE