在R中，对数据帧列表迭代函数，然后将输出存储到列表中，其中每个输出元素由输入数据帧命名

# 创建一个数据帧列表
data_frames <- list(df1, df2, df3, df4)

# 定义一个处理函数，对每个数据帧进行操作
process_df <- function(df) {
  # 在这里进行数据帧的处理操作
  processed_df <- ...  # 对数据帧进行处理操作，并将结果存储到processed_df中
  return(processed_df)
}

# 使用lapply()函数对数据帧列表进行迭代处理，并将结果存储到列表中
processed_data <- lapply(data_frames, process_df)

library(purrr)

# 创建一个数据帧列表
data_frames <- list(df1, df2, df3, df4)

# 定义一个处理函数，对每个数据帧进行操作
process_df <- function(df) {
  # 在这里进行数据帧的处理操作
  processed_df <- ...  # 对数据帧进行处理操作，并将结果存储到processed_df中
  return(processed_df)
}

# 使用map()函数对数据帧列表进行迭代处理，并将结果存储到列表中
processed_data <- map(data_frames, process_df)