R语言循环中引用变量名的语法问题求助

核心问题 #

你当前写法seph_raw_[i]不生效，是因为seph_raw_并不是一个列表，而你的月度数据是独立的对象（比如seph_raw_jan），无法通过这种索引方式调用。下面提供两种可行方案，推荐第一种。

方案一：用列表统一管理月度数据（推荐） #

这是R中处理批量数据的标准做法，代码更清晰易维护：

1. 将所有月度数据框存入列表

# 把每个月度数据框添加到列表中
seph_raw_list <- list(
  jan = seph_raw_jan,
  feb = seph_raw_feb,
  mar = seph_raw_mar,
  apr = seph_raw_apr,
  may = seph_raw_may,
  jun = seph_raw_jun,
  jul = seph_raw_jul,
  aug = seph_raw_aug,
  sep = seph_raw_sep,
  oct = seph_raw_oct
)

2. 创建地理编码映射表（替代多层ifelse）
   用映射表替代嵌套的ifelse，代码更简洁：

geo_map <- c(
  "10" = "NF", "11" = "PE", "12" = "NS", "13" = "NB",
  "24" = "QC", "35" = "ON", "46" = "MB", "47" = "SK",
  "48" = "AB", "59" = "BC", "60" = "YT", "61" = "NT",
  "62" = "NU"
)

3. 循环处理列表中的数据

for (month_name in names(seph_raw_list)) {
  # 匹配地理编码生成prov列
  seph_raw_list[[month_name]]$prov <- ifelse(
    seph_raw_list[[month_name]]$geoval %in% names(geo_map),
    geo_map[seph_raw_list[[month_name]]$geoval],
    "Other"
  )
}

# 如果需要把处理后的数据框放回全局环境，执行这行
list2env(seph_raw_list, envir = .GlobalEnv)

方案二：直接调用独立对象名（不推荐） #

如果一定要保留独立的seph_raw_xxx对象，可以用get()和assign()函数实现，但这种方式容易导致全局环境混乱，不建议长期使用：

geo_map <- c(
  "10" = "NF", "11" = "PE", "12" = "NS", "13" = "NB",
  "24" = "QC", "35" = "ON", "46" = "MB", "47" = "SK",
  "48" = "AB", "59" = "BC", "60" = "YT", "61" = "NT",
  "62" = "NU"
)

month_list = c("jan","feb","mar","apr","may","jun","jul","aug","sep","oct")

for (i in month_list) {
  # 根据字符串获取对应的数据框
  current_df <- get(paste0("seph_raw_", i))
  # 生成prov列
  current_df$prov <- ifelse(
    current_df$geoval %in% names(geo_map),
    geo_map[current_df$geoval],
    "Other"
  )
  # 将处理后的数据框重新赋值回原对象
  assign(paste0("seph_raw_", i), current_df)
}

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