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%与==一起使用多个值而不是library(dplyr) d1 %>% filter(Year %in% years) %>% count(Group, Year)，然后取“计数”

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

如果我们要制作多个数据框

export WSLENV=$WSLENV:VAR_NODE_IMAGE_NAME/u:VAR_NODE_VERSION/u
cmd.exe /C  set | grep  '^VAR' | tr '=' ' ' | awk '{printf "SETX %s %s\n", $1, $2}' | cmd.exe >> /dev/null

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

使用赋值运算符在R中的for循环内创建多个df

2 个答案: