使用R中函数中的列

Question

我有以下代码：

library(MASS)
data(cars)

我想做的是拉出所有20分钟的汽车。我知道我可以使用子集来做到这一点：

subset(cars,dist == 20)

但是当我尝试创建一个能完成相同功能的函数时，我一直都会遇到错误。这是我试过的：

pracfunc = function(dfo,colo){
lo = subset(dfo, colo == 20)
return(lo)}

然后

pracfunc(cars, "dist")

但我不断收到错误。我无法弄清楚我做错了什么。看起来很简单。感谢任何帮助，谢谢！

Answer 1

pracfunc <- function(dfo,colo){ dfo[dfo[[colo]] == 20, ] }

> identical(subset(cars,dist == 20), pracfunc(cars, 'dist'))
[1] TRUE