解析R中函数中的变量名

Question

我正在尝试使用tapply函数为变量x获取一些输出。

a = c(1,2,3,4)
b = c(5,3,8,1)
c = c(1,1,2,2)
df = data.frame(a,b,c)

fun <- function(data,var){
x <- tapply(data$b,data$var,function(x) return(x))
return(x)
}

fun(df,c)

然而，当我运行此操作时，我收到以下错误：

 Error in tapply(data$b, data$var, function(x) return(x)) : 
 arguments must have same length 

我已经尝试过使用eval（解析（text = paste方法，没有运气。感谢您的帮助！