如何批量替换R语言代码中的对象后缀_07至_22并保存对象？

方法一：for循环直接生成全局变量（新手易上手） #

先生成2008-2022对应的后缀字符串，再循环处理每个年份的数据框，计算均值后保存到工作区：

# 生成_08到_22的年份后缀
year_suffixes <- sprintf("_%02d", 8:22)

# 循环遍历每个年份
for(suffix in year_suffixes) {
  # 获取当前年份的数据框（比如df_08、df_09...）
  current_df <- get(paste0("df", suffix))
  # 计算y和b列的均值，建议加na.rm处理缺失值
  x_value <- mean(current_df$y, na.rm = TRUE)
  z_value <- mean(current_df$b, na.rm = TRUE)
  # 将计算结果赋值到全局环境（生成x_08、z_08等变量）
  assign(paste0("x", suffix), x_value)
  assign(paste0("z", suffix), z_value)
}

方法二：用列表统一存储（更高效易管理） #

不建议在全局环境里生成一堆零散变量，推荐用列表集中存储所有结果，后续调用更方便：

# 生成年份后缀
year_suffixes <- sprintf("_%02d", 8:22)
# 创建空列表存放所有结果
year_stats <- list()

for(suffix in year_suffixes) {
  current_df <- get(paste0("df", suffix))
  # 按年份存入列表
  year_stats[[suffix]] <- list(
    x_mean = mean(current_df$y, na.rm = TRUE),
    z_mean = mean(current_df$b, na.rm = TRUE)
  )
}

# 如果确实需要把变量放到全局环境，用list2env一键导入
list2env(unlist(year_stats, recursive = FALSE), .GlobalEnv)

注意点 #

• 加上na.rm = TRUE是为了避免数据中存在缺失值时，均值计算返回NA，可根据实际数据调整。
• 如果你的数据框命名不是df_XX格式，需要对应修改paste0("df", suffix)里的前缀部分。

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