使用函数参数索引数据帧

Question

取如下数据框：

df<-data.frame(n=rep(LETTERS[1:4],times=5),
               x=rnorm(20,4,1))

我怎样才能复制这个片段

df[df$n %in% c("A","C"),]

使用类似的函数调用

dffilter(df,n,c("A","C"))

错误的函数代码：

dffilter<-function(df,cl,fltr) {
  df[df$cl %in% fltr,]
}

什么是正确的函数代码？

Answer 1

dffilter<-function(df,col,fltr) {
res = df[df[,col] %in% fltr,]
return(res)
}

dffilter(df, "n", c("A","C"))