R语言循环构建统计数据框时出现Loop error报错求助

你的代码报错主要有两个核心原因：

• 你试图给数据框df使用[[i]]赋值，但df是数据框而非列表，这种索引赋值方式不适用；
• summarise_if的第三个参数需要传入函数对象（比如mean），但你传入的是字符串（比如"mean"），R无法识别字符串对应的函数。

下面给你两种可行的解决方案：

方案一：用列表统一存储结果（推荐） #

用列表来管理多个统计结果会更整洁，避免生成过多全局变量：

# 先确保你的原始数据框df已存在，这里模拟一个示例数据框
df <- data.frame(Year = rep(1:3, each=4),
                 Sales = rnorm(12, 100, 10),
                 Profit = rnorm(12, 20, 5),
                 Region = rep(c("North", "South"), 6))

# 定义需要使用的统计函数名称
func_list <- c("mean", "sum", "median")
# 创建空列表用于存储结果
stat_results <- list()

for (func_name in func_list) {
  # 将字符串转换为对应的函数对象
  target_func <- get(func_name)
  # 执行分组统计并存入列表
  stat_results[[func_name]] <- df %>% 
    group_by(Year) %>% 
    summarise_if(is.numeric, target_func, na.rm = TRUE)
}

# 调用结果示例
stat_results$mean  # 查看均值统计结果
stat_results$sum   # 查看求和统计结果

方案二：生成单独的全局数据框 #

如果你一定要生成dfmean、dfsum、dfmedian这类独立变量，可以用assign函数实现：

func_list <- c("mean", "sum", "median")

for (func_name in func_list) {
  target_func <- get(func_name)
  # 拼接目标变量名（比如"mean" → "dfmean"）
  var_name <- paste0("df", func_name)
  # 将统计结果赋值到全局环境的对应变量中
  assign(var_name,
         df %>% 
           group_by(Year) %>% 
           summarise_if(is.numeric, target_func, na.rm = TRUE))
}

# 直接调用生成的变量
dfmean
dfsum

补充：现代tidyverse语法推荐 #

如果你的R版本较新，summarise_if属于旧版语法，官方推荐使用summarise(across(...))替代，写法更清晰：

for (func_name in func_list) {
  target_func <- get(func_name)
  stat_results[[func_name]] <- df %>% 
    group_by(Year) %>% 
    summarise(across(where(is.numeric), target_func, na.rm = TRUE))
}

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