如何在R中编写函数批量对多个data frame执行spread生成_wide后缀宽表

你现有代码的核心问题如下：

• 动态变量名不能直接用"df"_wide这种语法赋值，必须借助assign函数实现动态命名
• 无命名的列表处理后无法对应原始数据框的名称生成xxx_wide格式的新变量
• 函数调用语法不符合R的规范

方案1：循环实现（最直观，直接生成全局变量） #

# 加载依赖包，spread属于tidyr包
library(tidyr)

# 生成所有原始数据框的名称向量
df_name_vec <- paste0("df", 1:10)

# 遍历处理每个数据框
for (df_name in df_name_vec) {
  # 从全局环境读取原始数据框
  raw_df <- get(df_name)
  # 执行spread操作
  wide_df <- spread(raw_df, key = time, value = values)
  # 生成_wide后缀的新变量名，赋值到全局环境
  assign(paste0(df_name, "_wide"), wide_df)
}

执行完成后，全局环境会自动生成df1_wide到df10_wide的10个新数据框。

方案2：列表批量处理（更规范，适合后续批量操作） #

如果不需要直接生成10个独立全局变量，推荐用列表存储处理后的数据，避免全局环境变量过多：

library(tidyr)

# 批量读取所有原始数据框为命名列表，列表名对应原始数据框名
df_list <- mget(paste0("df", 1:10))

# 批量对所有列表元素执行spread操作
df_wide_list <- lapply(df_list, function(x) {
  spread(x, key = time, value = values)
})

# 【可选】如果需要把列表中的数据框释放为全局独立变量，执行以下代码即可
names(df_wide_list) <- paste0(names(df_wide_list), "_wide")
list2env(df_wide_list, envir = .GlobalEnv)

补充说明 #

目前tidyr新版已经用pivot_wider替代了旧版的spread函数，功能完全一致，兼容性更好，替换spread的代码即可：

# pivot_wider写法
pivot_wider(names_from = time, values_from = values)

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