Как я могу превратить это заявление dplyr в функцию

Question

По сути, я хочу превратить это:

sum_user_daily_p1 <- raw_user_daily_agg %>%
group_by(UserID) %>%
filter(ProductID == 1) %>%
summarize(
  LOR_months = (difftime(max(Date), min(Date), units = "weeks")),
  bets_total = sum(Bets),
  max_bet = max(Bets),
  min_bet = min(Bets)
)

....

sum_user_daily_p8 <- raw_user_daily_agg %>%
group_by(UserID) %>%
filter(ProductID == 8) %>%
summarize(
  LOR_months = (difftime(max(Date), min(Date), units = "weeks")),
  bets_total = sum(Bets),
  max_bet = max(Bets),
  min_bet = min(Bets)
)

в

sum_by_p <- function(x) {

name <- c('sum_user_daily_p', x)

  name <- raw_user_daily_agg %>%
    group_by(UserID) %>%
    filter(ProductID == x) %>%
    summarize(
      LOR_months = (difftime(max(Date), min(Date), units = "weeks")),
      bets_total = sum(Bets),
      max_bet = max(Bets),
      min_bet = min(Bets)
    )
}

Однако, он продолжает возвращаться как объект данных вместо используемой формулы.Есть ли какая-то ошибка в коде?

Answer 1

Используйте assign внутри функции для сохранения данных и paste0 для создания имени:

sum_by_p <- function(data, x) {

  name <- paste0('sum_user_daily_p', x)

  data <- data %>%
    group_by(UserID) %>%
    filter(ProductID == x) %>%
    summarize(
      LOR_months = (difftime(max(Date), min(Date), units = "weeks")),
      bets_total = sum(Bets),
      max_bet = max(Bets),
      min_bet = min(Bets)
    )
  assign(name, data, envir=globalenv()) # to create name in the global env.
}

sum_by_p(raw_user_daily_agg, x=1)