Question

我将来自多个/多个文本文件的1列数据合并到一个CSV文件中。这部分对我的代码很好。但是，我希望在导入文件名（例如，“roth_Aluminusa_E1.0.DPT”）作为从该文件中获取的数据列的列标题之后。我知道，类似的问题已被问到，但我无法解决。感谢您的帮助： - ）

我使用的代码用于组合文件：

files3 <- list.files()  
WAVELENGTH <- read.table(files3[1], header=FALSE, sep=",")[ ,1]  
TEST9 <- do.call(cbind,lapply(files3,function(fn)read.table(fn, header=FALSE, sep = ",")[ , 2]))  
TEST10 <- cbind(WAVELENGTH, TEST9)

Answer 1

您可以执行以下操作将列名称添加到TEST10。这假设您希望第一列的列名称为files3[1]

colnames(TEST10) <- c(files3[1], files3)

如果您想保留第一列的名称，那么我们在使用TEST9绑定WAVELENGTH之前添加所需的列名。

colnames(TEST9) <-  files3
TEST10 <- cbind(WAVELENGTH, TEST9)

然后您可以像往常一样写入csv，将列名保留为结果文件中的标题。

write.csv(TEST10, file = "TEST10.csv", row.names = FALSE)

组合多个文件时，将文件名添加为列标题

1 个答案: