Использование операторов присваивания для создания нескольких df внутри цикла for в R

Question

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

Я надеюсь использовать цикл for, поэтому мне не нужно изменять код для каждого года. Я пытаюсь использовать оператор присваивания для создания нескольких фреймов данных во время выполнения цикла. Вот моя попытка, которая не работает:

d1 <- data.frame(Year = c(2019, 2019, 2019, 2018, 2018),
                 Group = c("a", "b", "b", "a", "c"))

years <- c(2019, 2018)


for (i in years){
  df <- filter(d1$Year == i) %>%
        group_by(Group) %>%
        summarise(n = n()) %>%
        rename(paste0("n_", i) = n)

  dat[[i]] <- df
}

Любая помощь будет оценена.

Answer 1

  d1 <- data.frame(Year = c(2019, 2019, 2019, 2018, 2018),
                     Group = c("a", "b", "b", "a", "c"))

  years <- c(2019, 2018)


  for (i in years){

  df = d1 %>%
    filter(d1$Year == i) %>%
    group_by(Group) %>%
    summarize(now = n())

  assign(paste0("df_", i),df)
}

Answer 2

Мы можем filter с %in% для нескольких значений вместо ==, а затем взять 'count'

library(dplyr)
d1 %>%
   filter(Year %in% years) %>%
   count(Group, Year)

---

Если мы хотим создать несколько data.frames

d1 %>%
   filter(Year %in% years) %>%
   group_split(Year) %>%
   map(~ .x %>%
             count(Group))