使用函数参数索引数据框

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