如何修改R语言data.frame列表，为每个数据框添加首列重复列并输出

需要对R中存储了多个data.frame的列表做批量修改：为列表内每个数据框新增一列，该列内容完全复制对应数据框第一列的全部取值，最终输出所有修改完成后的数据框组成的列表。
前置准备代码：

FileList <- list(DF1, DF2)
尝试实现功能的代码：
ModifiedDataFrames <- lapply(1:length(FileList), function (x) {FileList[[x]]$Column2 == FileList[[x]]$Column1})
运行后出现的异常：执行代码后，查看ModifiedDataFrames[[1]]无法得到预期的完整修改后数据框，仅能得到一个长度与DF1第一列一致的向量，内容是等值判断的结果，不符合需求。

• 运算符误用：代码中使用的==是等值判断运算符，作用是逐元素对比两侧对象并返回逻辑值向量，不具备赋值、新增列的功能。该场景需要的列赋值操作应当使用单等号=或赋值箭头<-。
• 未返回正确的对象：lapply会自动收集遍历函数代码块最后一行的执行结果作为列表元素，当前代码块最后一行是等值判断的输出值，并非经过修改的完整数据框，因此最终生成的列表元素类型完全不符合预期。

适配原有逻辑的版本 #

基于最初的索引遍历结构调整，改动最小：

ModifiedDataFrames <- lapply(1:length(FileList), function(x) {
  # 取出当前索引对应的数据框，做独立修改避免改动原列表对象
  current_df <- FileList[[x]]
  # 新增Column2列，复制当前数据框第一列的全部内容
  current_df$Column2 <- current_df[[1]]
  # 返回修改后的完整数据框供lapply收集
  current_df
})

更简洁的优化版本 #

无需通过索引定位列表元素，直接遍历列表内的数据框即可完成相同功能：

ModifiedDataFrames <- lapply(FileList, function(current_df) {
  current_df$Column2 <- current_df[[1]]
  current_df
})

说明：代码中使用current_df[[1]]取第一列而非写死列名Column1，可以适配列表内各数据框第一列列名不统一的场景，通用性更强。

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