循环遍历多个变量，并将每个变量插入函数R

您可以使用lapply或purrr::map迭代您的变量.要做到这一点，我们需要遍历字符串而不是变量，所以您需要在group_by中对变量进行pick.

library(tidyverse)

group_the_data <- function(data, 
                           variable, 
                           group_tag) {
  
  grouped_output <- data %>%
    mutate(flag = 1) %>%
    group_by(pick(variable)) %>% # pick the variable
    summarise(number_staff = sum(flag, na.rm = T)) %>%
    mutate(grouping_tag := {{group_tag}})
  
  return(grouped_output)
  
}

purrr::map(colnames(data)[-1], 
           ~ group_the_data(data, variable = .x, group_tag = .x)) %>% 
  bind_rows()

# A tibble: 6 × 5
  disability_status number_staff grouping_tag      age_group teacher
  <chr>                    <dbl> <chr>             <chr>     <chr>  
1 no                           4 disability_status NA        NA     
2 yes                          4 disability_status NA        NA     
3 NA                           4 age_group         20-30     NA     
4 NA                           4 age_group         30-40     NA     
5 NA                           4 teacher           NA        no     
6 NA                           4 teacher           NA        yes 

同样，如果您想要有不同的"变量"和"group_tag"，请使用purrr::map2:

purrr::map2(colnames(data)[-1], 
            c("disability status", "age group", "role"), 
            ~ group_the_data(data, variable = .x, group_tag = .y)) %>% 
  bind_rows()

# A tibble: 6 × 5
  disability_status number_staff grouping_tag      age_group teacher
  <chr>                    <dbl> <chr>             <chr>     <chr>  
1 no                           4 disability status NA        NA     
2 yes                          4 disability status NA        NA     
3 NA                           4 age group         20-30     NA     
4 NA                           4 age group         30-40     NA     
5 NA                           4 role              NA        no     
6 NA                           4 role              NA        yes