将数据框列名传递给自定义函数

Question

我试图将DataFrame列传递给自定义函数，以便可以从内部引用它。我不确定我是不是只是缺少一些明显的方法来做到这一点，还是根本就没有办法。

这是产生错误的代码：

plottingFunction <- function(battingData, column, numberOfBatters, year) {
topTen <- head(battingData %>% subset(battingData["yearID"] == year) %>% arrange(desc(colnames(battingData)[column])), numberOfBatters)
}
plottingFunction(battingData, AB, numberOfBatters, year)

  

range_impl（.data，点）中的错误：     位置1的尺寸（1）不正确，预计为950

任何想法都值得赞赏！