r - 使用逻辑运算符对函数进行子集化

Question

我正在尝试使用逻辑运算符在函数中进行子集化，如下所示：

iris$Species <- as.character(iris$Species)

mySubsetFunction <- function(df, species){
  dfSubset <- subset(df, Species==species)
  return(dfSubset)
}

mySubsetFunction(iris, species="setosa" | species="virginica")

这将返回一个错误：

Error: unexpected '=' in "mySubsetFunction(iris, species="setosa" | species="

如何设置函数的参数以接受逻辑运算符？

Answer 1

你的意思是：

mySubsetFunction <- function(df, species){
    dfSubset <- subset(df, Species %in% species)
    return(dfSubset)
}

mySubsetFunction(iris, c("setosa", "virginica"))

（但是，在使用subset内部函数时要小心：为什么 `[` 比 `subset` 更好？）

或者subset直接使用：

subset(iris, Species == "setosa" | Species == "virginica"`)

或者

subset(iris, Species %in% c("setosa", "virginica"))