使用for循环结合filter与rbind生成新数据帧的问题求助

问题根源 #

你之前的for循环逻辑错误：i是seq_along(gs2_unique)生成的索引值（如1、2、3...），并非目标年份字符串，因此i %in% gs2_unique的判断永远不成立，导致筛选结果不符合预期；同时每次循环都会覆盖gs_filter，没有累积最终结果。

方法1：直接用%in%批量筛选（最简便） #

无需循环，直接指定待保留的年份列表，一次性完成筛选：

# gs2_unique为你需要保留的连续年份向量
temp <- filter(g2, Year %in% gs2_unique)
# 若需严格匹配gs2_unique的顺序，可追加排序
temp <- temp[match(gs2_unique, temp$Year), ]

方法2：修正for循环逻辑 #

如果一定要使用循环，需累积每次筛选的结果，且用年份值而非索引做判断：

# 初始化空数据框用于存储结果
temp <- data.frame()
# 遍历年份值而非索引
for (year_val in gs2_unique) {
  # 筛选对应年份的数据
  gs_filter <- filter(g2, Year == year_val)
  # 合并到结果数据框
  temp <- rbind(temp, gs_filter)
}

方法3：用tidyverse的map_dfr高效实现 #

基于tidyverse生态的map_dfr可自动将循环结果合并为数据框：

library(purrr)
temp <- map_dfr(gs2_unique, ~filter(g2, Year == .x))

以上三种方法均可替代手动逐个筛选的繁琐操作，实现批量筛选连续年份数据的需求。

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