Объединить некоторые столбцы, оставив другие столбцы без изменений

Question

У меня есть фрейм данных, похожий на этот фиктивный образец, в моем реальном наборе данных было 56 переменных.Я хотел бы отбросить дату и агрегировать по id и суммировать последние 4 суммарные переменные, оставив остальные без изменений.

df <- data.frame(stringsAsFactors=FALSE,
          date = c("2019-02-10", "2019-02-10", "2019-02-11", "2019-02-11",
                   "2019-02-12", "2019-02-12", "2019-02-13", "2019-02-13",
                   "2019-02-14", "2019-02-14"),
            id = c("18100410-aa", "18101080-ae", "18100410-aa", "18101080-ae",
                   "18100410-aa", "18101080-ae", "18100410-aa", "18101080-ae",
                   "18100410-aa", "18101080-ae"),
        f_type = c(4L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 4L, 2L),
           reg = c(6L, 7L, 6L, 7L, 6L, 7L, 6L, 7L, 6L, 7L),
        hh_p10 = c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L),
      internet = c(1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L),
      youngest = c(5L, 7L, 5L, 7L, 5L, 7L, 5L, 7L, 5L, 7L),
       a_group = c(3L, 6L, 3L, 6L, 3L, 6L, 3L, 6L, 3L, 6L),
     total_prd = c(130L, 337L, 374L, 261L, 106L, 230L, 150L, 36L, 15L, 123L),
   B_totalprod = c(20L, 0L, 256L, 0L, 32L, 0L, 0L, 36L, 0L, 45L),
   p_totalprod = c(0L, 81L, 11L, 260L, 26L, 230L, 0L, 0L, 15L, 0L),
   n_totalprod = c(110L, 256L, 107L, 1L, 48L, 0L, 150L, 0L, 0L, 78L)
)

Я нашел это решение из пакета plyr здесь оно работает, ноМне нужно указать все мои 52 незатронутых переменных.Мне просто интересно, есть ли другой способ выполнить эту задачу?

library(plyr)
ddply(df,.(id,f_type, reg, internet,hh_p10 ,youngest, a_group ),summarise,total_prd = sum(total_prd) ,
      B_totalprod = sum(B_totalprod) , p_totalprod = sum(p_totalprod) ,
      n_totalprod = sum(n_totalprod))

Answer 1

Если в вашем реальном наборе данных также есть столбцы, содержащие «итого», это должно работать:

library(tidyverse)
df %>%
  select(-date) %>%
  group_by(.dots = str_subset(names(.), "total", negate = TRUE)) %>%
  summarise_all(list(sum = sum))

# A tibble: 2 x 11
# Groups:   id, f_type, reg, hh_p10, internet, youngest [2]
  id          f_type   reg hh_p10 internet youngest a_group total_prd_sum B_totalprod_sum p_totalprod_sum n_totalprod_sum
  <chr>        <int> <int>  <int>    <int>    <int>   <int>         <int>           <int>           <int>           <int>
1 18100410-aa      4     6      2        1        5       3           775             308              52             415
2 18101080-ae      2     7      1        2        7       6           987              81             571             335

Строка group_by(.dots = str_subset(names(.), "total", negate = TRUE)) означает, что мы собираемся сгруппировать по всем именам столбцов в нашем this набор данных, который не содержит слова "итого".