如何用R语言for循环按年份拆分DataFrame为多个新数据集？

先说说你原来代码的两个核心问题：

• distinct(US, year)返回的是DataFrame，不是单个年份的数值向量，循环时y拿到的是整行数据，不是你需要的年份值，过滤条件自然出错
• 你循环里只是把过滤结果重新赋值给name变量，根本没把结果存成US_2000这类全局变量，最后只有循环最后一次的结果临时存在name里，自然达不到批量生成的效果

正确的循环写法 #

先把年份提取成数值向量，再用assign()函数把每个年份的DataFrame存到全局环境：

# 提取所有唯一的年份，得到纯数值向量
years <- unique(US$year)

# 循环处理每个年份
for (y in years) {
  # 生成目标变量名，比如US_2000
  var_name <- paste("US", y, sep = "_")
  # 过滤对应年份的数据，并存到全局环境的对应变量中
  assign(var_name, US %>% filter(year == y))
}

更高效的绘图优化建议（无需拆分数据） #

其实你要做各州诊断率的可视化，完全没必要拆成多个DataFrame，直接用ggplot的分面功能就能一次性搞定，比拆分后逐个绘图高效得多：

library(ggplot2)

# 按年份分面，自动生成每个年份的可视化图
ggplot(US, aes(x = location_name, y = rate)) +
  geom_col() # 可根据需求替换成geom_line/geom_point等
  facet_wrap(~year) +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5)) # 旋转州名避免重叠

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