使用賦值運算符在R中的for循環內創建多個df

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

我們可以使用%in% filter多個值而不是== ，然后取'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))

Answer 2

  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)
}