我有大約100個excel文件（一張紙），其中我想提取第4列并將它們放在R中的一個文件中（在這個新文件中，我想將所有列堆疊成一列數據，其標題在第二列中）
我怎么能在R里做到呢？提前謝謝！
我在這里找到了這個解決方案：（提取不同文件的特定列，并將它們放在R中的一個大文件中）
setwd("XXX")
fileNames <- Sys.glob("*.csv")
extractor <- function(fileName) {
dataDf <- read.csv2(fileName, header = TRUE)
Column4 <- dataDf$Column4
return(Column4)
}
total.list <- lapply(fileNames, extractor)
total.table <- Reduce(cbind, total.list)
write.table(total.table, file = "New-file.csv")
但是我有一個錯誤消息：結果的行數不是向量長度（arg2）=>的倍數，因為向量的長度不匹配
我怎樣才能解決這個問題？非常感謝！
