R中的语法，用于在数据框中使用变量代替字段名

Question

我有一个包含许多字段的数据框。我想使用summary函数获得10-12个字段的摘要。相关字段以seq命名，如V1-V10。我正在尝试编写一个将输入作为1-10的函数，然后给出V1-V10的摘要。

BMI <-  data.frame(
V1 = c("Male", "Male","Female"), 
V2 = c(42,38,26),
height = c(152, 171.5, 165), 
weight = c(81,93, 78)
)
g <-     function(x)c(Mean=mean(x,na.rm=TRUE),Median=median(x,na.rm=TRUE),Min=min(x,na.rm=TRUE),Max=max(x,na.rm=TRUE))
t <- summarize(BMI$V2,BMI$V1,g)
t    
tt <- summarize(BMI$get(paste0("V",2)),BMI$get(paste0("V",1)),g)
tt

t工作正常。我希望t和tt相同。但是出现如下的tt错误，

summary（BMI $ get（paste0（“ V”，2）），BMI $ get（paste0（“ V”，1）），g）中的错误：   尝试应用无功能