运行多个函数并将对象保存在r中的命名列表中

Question

我试图弄清楚如何使用不同的参数运行多个函数，并将对象保存在列表中并命名每个元素。 使用mtcars数据集作为示例：

sel<- function(data, x){
    data %>% select(x)
}
vars <- c('disp', 'hp')
df.list<- map(vars, ~sel(data=mtcars, .x))

我得到的是数据帧列表。问题是如何返回一个名为每个对象的列表。例如，第一个对象命名为＆＃39; disp＆＃39;第二个对象命名为＆＃39; hp＆＃39; .... 非常感谢。