将列表中的数据框名称应用于R中的特定列

# 创建一个包含多个数据框的列表
my_list <- list(df1 = data.frame(col1 = c(1, 2, 3), col2 = c(4, 5, 6)),
                df2 = data.frame(col1 = c(7, 8, 9), col2 = c(10, 11, 12)))

# 遍历列表中的每个数据框
for (i in 1:length(my_list)) {
  # 获取数据框名称
  df_name <- names(my_list)[i]
  
  # 将数据框名称应用于特定列
  my_list[[i]]$col3 <- df_name
}

# 打印更新后的数据框
for (i in 1:length(my_list)) {
  print(my_list[[i]])
}