R语言：如何按因子级别运行for循环？循环逻辑修正求助

你当前的循环仅输出了season中WET级别的结果，核心问题是嵌套循环里的列表索引方式错误——每次内层循环都会覆盖外层循环对应年份的列表元素，最终只保留了最后一个因子级别的数据。以下是具体修改方案：

核心修改点 #

• 调整listofdfs的索引规则，让每个年份+季节的组合拥有独立的列表位置，避免数据覆盖
• 将数据拼接操作移到循环外部，减少重复计算浪费资源

修改后的完整代码 #

set.seed(1357)

df <- as.data.frame(rnbinom(300, mu = 0.6971, size = 1))
names(df)[1] <- "count"
df$YR <- rep(2018:2020, each=100)
df$season <- rep(c("DRY", "WET"), each=50)
df$season <- as.factor(df$season)

substrRight <- function(x, n){
  substr(x, nchar(x)-n+1, nchar(x))
}

listofdfs <- list()

allYR <- unique(df$YR)

# 修改后的循环逻辑
for (i in allYR) {
  for(j in seq_along(levels(df$season))){
    
    sg <- df %>% filter(YR %in% c(i:2020) & season == levels(df$season)[j])
    
    z <- sg$count
    sg$occur <- ifelse(z > 0, 1, 0)
    sg$occur <- as.integer(sg$occur)
    
    sg_summary <- sg %>% 
      distinct %>% 
      arrange(season, YR) %>% 
      group_by(season) %>%
      summarise(YR = str_c(YR, collapse="_"),
                n = n(), 
                mean_occur = round(mean(occur, na.rm = TRUE),4))
    
    sg_summary$YRs_combined <- paste(substring(sg_summary$YR, 1, 4), 
                                      substrRight(sg_summary$YR, 4), sep="-")
    
    sg_summary <- sg_summary[,-2]
    
    # 用年份+季节索引的组合键存储结果，避免覆盖
    listofdfs[[paste(i, j, sep = "_")]] <- sg_summary
    
  }
}
# 循环结束后统一拼接所有结果
x <- bind_rows(listofdfs)

细节优化说明 #

1. 索引调整：把listofdfs[[i]]改为listofdfs[[paste(i, j, sep = "_")]]，确保每个年份和季节的组合结果都能被独立存储
2. 过滤逻辑简化：将season %in% c(levels(season)[j])改为season == levels(df$season)[j]，逻辑更清晰，避免不必要的向量操作
3. 拼接时机优化：把x <- bind_rows(listofdfs)移到循环外部，只执行一次拼接操作，提升代码运行效率

运行效果 #

执行修改后的代码后，会得到包含DRY和WET两个级别完整统计结果的tibble，与你预期的输出格式一致。

内容的提问来源于stack exchange，提问作者Nate