Как заключить в кавычки и отменить кавычки в функцию и выполнить итерации по фрейму данных

Question

Я пытаюсь взять функцию и перебрать массив данных значений. Цель здесь - суммировать задержки в аэропортах по группам из 10 человек.

Как вы воспринимаете значение того, что передается в функцию как имя? Источник столбца (EWR, LGA, JFK) должен быть сохранен как столбец, и его по-прежнему необходимо передавать в группу по функциям.

library(tidyverse)
library(nycflights13)

head(flights)
#> # A tibble: 6 x 19
#>    year month   day dep_time sched_dep_time dep_delay arr_time sched_arr_time
#>   <int> <int> <int>    <int>          <int>     <dbl>    <int>          <int>
#> 1  2013     1     1      517            515         2      830            819
#> 2  2013     1     1      533            529         4      850            830
#> 3  2013     1     1      542            540         2      923            850
#> 4  2013     1     1      544            545        -1     1004           1022
#> 5  2013     1     1      554            600        -6      812            837
#> 6  2013     1     1      554            558        -4      740            728
#> # ... with 11 more variables: arr_delay <dbl>, carrier <chr>, flight <int>,
#> #   tailnum <chr>, origin <chr>, dest <chr>, air_time <dbl>, distance <dbl>,
#> #   hour <dbl>, minute <dbl>, time_hour <dttm>

ntile_summary <- function(data, by, var) {
  by <- enquo(by)
  var <- enquo(var)
  data %>%
    mutate(pcts = ntile(!!by, n = 10),
           col_nm = !!by)
    group_by(pcts, col_nm) %>% 
      summarize(avg = mean(!!var, na.ram  = TRUE))
}

params <- expand_grid(
  flights %>% count(origin) %>%  select(origin), 
  flights %>%  count(day) %>% head(2) %>% select(day)
)

ntile_summary(flights, day, arr_delay)
#> Error in group_by(pcts, col_nm): object 'pcts' not found

purrr::walk(params, ~ntile_summary(flights, !origin, arr_delay))
#> Error in !origin: invalid argument type

^{Создано в 2020-03-15 пакетом Представлять (v0.3.0)}

Answer 1

После mutate соединение установлено. не там %>%

ntile_summary <- function(data, by, var) {
 by <- enquo(by)
 var <- enquo(var)
 data %>%
    mutate(pcts = ntile(!!by, n = 10),
       col_nm = !!by) %>%
    group_by(pcts, col_nm) %>% 
    summarize(avg = mean(!!var, na.ram  = TRUE))
}
ntile_summary(flights, day, arr_delay)
# A tibble: 40 x 3
# Groups:   pcts [10]
#    pcts col_nm   avg
#   <int>  <int> <dbl>
# 1     1      1 NA   
# 2     1      2 NA   
# 3     1      3 NA   
# 4     1      4 -4.44
# 5     2      4 NA   
# 6     2      5 NA   
# 7     2      6 NA   
# 8     2      7 NA   
# 9     3      7 NA   
#10     3      8 NA   
# … with 30 more rows

---

Мы могли бы также использовать оператор фигурных фигур ({{}}) вместо enquo + `!! ~

ntile_summary <- function(data, by, var) {

     data %>%          
        mutate(col_nm = {{by}}, pcts = ntile({{by}}, n = 10)) %>% 
        group_by(pcts, col_nm) %>%
        summarize(avg = mean({{var}}, na.ram  = TRUE))
    }

ntile_summary(flights, day, arr_delay)
# A tibble: 40 x 3
# Groups:   pcts [10]
#    pcts col_nm   avg
#   <int>  <int> <dbl>
# 1     1      1 NA   
# 2     1      2 NA   
# 3     1      3 NA   
# 4     1      4 -4.44
# 5     2      4 NA   
# 6     2      5 NA   
# 7     2      6 NA   
# 8     2      7 NA   
# 9     3      7 NA   
#10     3      8 NA   
# … with 30 more rows