我试图从一个列表中创建汇总统计数据。我有模拟数据，创建了3个数据子集，将其保存到csv并导入，现在我试图计算每个csv中每列的平均值作为列表。

examples_mean <- map(examples, function (data_df) {
  data_df <- data_df %>%
    summarise(vars(column1, column2), mean(mean))

  return(data_df)
})

examples_mean

我尝试使用lapply（）和stackoverflow的各种其他建议
但唯一一个没有给予错误/警告的是我上面的代码，但返回了下面的这个，这是我所需要的，但它缺少平均值列中的值：

> examples_mean
$`data/example_1.csv`
# A tibble: 2 × 2
  `vars(column1, column2)` `mean(mean)`
  <quos>                       <dbl>
1 column1                        NA
2 column2                        NA

$`data/example_2.csv`
# A tibble: 2 × 2
  `vars(column1, column2)` `mean(mean)`
  <quos>                       <dbl>
1 column1                        NA
2 column2                        NA

$`data/example_3.csv`
# A tibble: 2 × 2
  `vars(column1, column2)` `mean(mean)`
  <quos>                         <dbl>
1 column1                         NA
2 column2                         NA