более эффективный / элегантный способ передачи нескольких аргументов в группу, используя нестандартную оценку в функции, использующей dplyr. Я не хочу использовать оператор ..., но указывать функции по отдельности.

Мой конкретный пример использования - это функция, которая берет фрейм данных и создает объект ggplot с более простым синтаксисом. Вот пример кода, который я хочу автоматизировать с помощью своей функции:

# create data frame
my_df <- data.frame(month = sample(1:12, 1000, replace = T),
                    category = sample(head(letters, 3), 1000, replace = T),
                    approved = as.numeric(runif(1000) < 0.5))

my_df$converted <- my_df$approved * as.numeric(runif(1000) < 0.5)

my_df %>%
  group_by(month, category) %>%
  summarize(conversion_rate = sum(converted) / sum(approved)) %>%
  ggplot + geom_line(aes(x = month, y = conversion_rate, group = category, 
  color = category))

Я хочу объединить эти group_by, summaze, ggplot и geom_line в простую функцию, которую я могу кормить по x, y и group, и заставить ее выполнять всю грязную работу под капотом. Вот что я получил на работу:

# create the function that does the grouping and plotting
plot_lines <- function(df, x, y, group) {

  x <- enquo(x)
  group <- enquo(group)
  group_bys <- quos(!! x, !! group)

  df %>%
    group_by(!!! group_bys) %>%
    my_smry %>%
    ggplot + geom_line(aes_(x = substitute(x), y = substitute(y), 
    group = substitute(group), color = substitute(group)))
}

# create a function to do the summarization
my_smry <- function(x) {
  x %>% 
    summarize(conversion_rate = sum(converted) / sum(approved))
}

# use my function
my_df %>% 
  plot_lines(x = month, y = conversion_rate, group = category)

Я чувствую, что обработка group_by довольно не элегантна: цитатаx а такжеgroup с участиемenquo, а затем, цитируя их!! внутри другой функции цитированияquosтолько для того, чтобы заново их цитировать!!! на следующей строке, но это единственное, что мне удалось получить на работу. Есть лучший способ сделать это?

Кроме того, есть ли способ получить ggplot, чтобы взять!! вместоsubstitute? То, что я делаю, кажется непоследовательным.