我如何获取每个类别的平均值并将其放入新的数据帧中？

Question

我正在尝试从女性和男性的角度来获取一些数据，并将其放入新的数据框架中。我可以使用dplyr对两列执行此操作，但不能对整个数据帧执行此操作。我使用: df2 <- df1 %>% group_by(Genul) %>%摘要(平均值=平均值(Apreciez că în condițiile actuale de pandemie, compania (Hotelul) în cadrul căreia sunt angajat a luat măsuri eficiente și suficiente de prevenție împotriva răspândirii virusului Sars-Cov-2 si contaminării cu acesta.))

​

​

Answer 1

您可以使用{{}}和across创建自己的汇总函数my_mean

然后，对要计算mean的列应用函数my_mean

请参阅下面的mtcars数据集示例：

library(dplyr)
my_mean <- function(data, col_names, na.rm = TRUE) {
  data %>% 
    summarise(across({{col_names}},
              list(mean = mean),
              na.rm = na.rm,
              .names = "{col}_{fn}"
    ))
}

mtcars %>% 
  group_by(cyl) %>% 
  my_mean(c(mpg, disp, hp, drat))

# Output:
# A tibble: 3 x 5
    cyl mpg_mean disp_mean hp_mean drat_mean
  <dbl>    <dbl>     <dbl>   <dbl>     <dbl>
1     4     26.7      105.    82.6      4.07
2     6     19.7      183.   122.       3.59
3     8     15.1      353.   209.       3.23