R语言中使用assign批量生成数据对象时出现envir参数类型错误求助

你的报错核心原因很明确：aggregate函数的data参数需要传入实际的数据框对象，而不是数据框的名称字符串。你代码里用paste("new_account_",i,...)生成的是字符串，直接传给aggregate的话，它没法识别成可操作的数据框，所以抛出了环境类型不匹配的错误。

下面给你两种修正方案，分别适配base R和dplyr的风格：

方案1：用dplyr重构代码（推荐，更易读维护） #

dplyr的group_by()+summarise()比嵌套aggregate逻辑更清晰，同时解决数据框引用的问题：

library(dplyr)

for (i in chanel_code) {
  # 把字符串格式的变量名转换成实际的数据框对象
  current_df <- get(paste0("new_account_", i))
  
  # 一次性计算均值和计数，逻辑更直观
  result_df <- current_df %>%
    group_by(month_year, na_appl_status) %>%
    summarise(
      na_adss_score_mean = mean(na_adss_score, na.rm = TRUE),  # 加na.rm处理缺失值
      na_pcn_no_count = n(),  # n()直接统计分组行数，替代length逻辑
      .groups = "drop"  # 取消分组，返回普通数据框
    )
  
  # 将结果赋值给目标变量
  assign(paste0("prospect_", i), result_df)
}

方案2：用base R的aggregate修正 #

如果坚持用base R，需要先把字符串转成数据框，再分开计算聚合结果后合并：

for (i in chanel_code) {
  df_name <- paste0("new_account_", i)
  current_df <- get(df_name)
  
  # 分别计算均值和计数
  agg_score <- aggregate(na_adss_score ~ month_year + na_appl_status, 
                         data = current_df, mean, na.rm = TRUE)
  agg_count <- aggregate(na_pcn_no ~ month_year + na_appl_status, 
                         data = current_df, length)
  
  # 合并两个聚合结果，并重命名列
  result_df <- merge(agg_score, agg_count, by = c("month_year", "na_appl_status"))
  colnames(result_df) <- c("month_year", "na_appl_status", "na_adss_score_mean", "na_pcn_no_count")
  
  assign(paste0("prospect_", i), result_df)
}

额外建议：避免用assign/get，改用列表管理数据 #

频繁用assign()和get()会让代码变得混乱且难以调试，推荐用列表统一管理多个数据集：

# 把所有new_account_开头的数据框存入列表
account_list <- mget(ls(pattern = "^new_account_"))

# 批量处理所有数据框
prospect_list <- lapply(account_list, function(df) {
  df %>%
    group_by(month_year, na_appl_status) %>%
    summarise(
      na_adss_score_mean = mean(na_adss_score, na.rm = TRUE),
      na_pcn_no_count = n(),
      .groups = "drop"
    )
})

# 如果需要将结果转成单独变量（可选，推荐保持列表形式）
# list2env(prospect_list, envir = .GlobalEnv)

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