如何将变量名称传递给具有h2o函数的自定义函数

Question

我正在尝试创建一个函数，我需要传递h2o数据框和变量，然后使用内置的H2o函数为模型创建部分依赖图。我的功能如下：

pdp<-function(data,var, bin){
data1 <<- data
var1 <<- var
data1<<-h2o.arrange(data1,var1)
h2o.partialPlot(object = gbm26, data = data1[1:floor(nrow(data1)*0.95),], 
cols = var1 , nbins = 20)
}
pdp(data = dev_final, var = "trans_amt_AVG_0_6m", bin = 20)

此函数抛出错误“checkMatch中的错误（名称（x））：未找到列'var1' “。是否有另一种方法可以将变量名称传递给此函数。