将map函数应用于purrr中的分组数据帧

Map with Purrr multiple dataframes and have those modified dataframes as the output 并将其修改为包含我选择的另一个度量(“choice”)。但是,此代码会引发一个错误:

.f(.x[[i]],…)中出错:未使用的参数(choice=“disp”)。

理想情况下,我希望能够创建一个分组的数据帧(使用groupby或split(),并在数据帧中的不同组上应用一个函数,但是我无法解决这个问题。因此,请看数据帧列表。

mtcars2 <- mtcars 

#change one variable just to distinguish them 
mtcars2$mpg <- mtcars2$mpg / 2

#create the list
dflist <- list(mtcars,mtcars2)

#then, a simple function example
my_fun <- function(x) 

{x <- x %>%
  summarise(`sum of mpg` = sum(mpg), 
            `sum of cyl` = sum(cyl),
            `sum of choice` = sum(choice))}

#then, using map, this works and prints the desired results
list_results <- map(dflist,my_fun, choice= "disp")