如何修改data.frame列表，然后output data.frame

Question

我想在每個 data.frames 列表中創建第二列，它只是第一列的副本，然后是 output 這些 data.frames：

存儲數據幀：

> FileList <- list(DF1, DF2)

向每個數據框添加另一列：

> ModifiedDataFrames <- lapply(1:length(FileList), function (x) {FileList[[x]]$Column2 == FileList[[x]]$Column1})

但ModifiedDataFrames[[1]]只返回一個列表，其中包含我認為來自 DF1$Column1 的內容

我在這里想念什么？

Answer 1

您的代碼存在一些問題。 首先，您使用等價運算符==進行賦值，其次您沒有從 function 返回正確的元素。 這是一個可能的解決方案：

df1 <- data.frame(Column1 = c(1:3))  
df2 <- data.frame(Column1 = c(4:6))  
FileList <- list(df1, df2)
ModifiedDataFrames <- lapply(FileList, function(x) {
  x$Column2 <- x$Column1
  return(x)
})

> ModifiedDataFrames
[[1]]
  Column1 Column2
1       1       1
2       2       2
3       3       3

[[2]]
  Column1 Column2
1       4       4
2       5       5