如何将多个文本文件合并到一个数据框中？

Question

假设我在同一目录中有9个.txt文件。price1.txt价格2.txt价格3.txt是来自不同位置的价格表，行和列名称相应地是经度和海拔高度。year4，5，6.txt和dis7，8，9.txt是与文本1中相同位置的年份和折扣表。

我想创建一个新的数据框，其中每列都是价格、年份、折扣的列表，来自文本1-9，具有相应的经度和姿态。

我能够使用

mydata = list.files(pattern = "\\.txt$") 

要读取文件的名称

我能够使用

a = lapply(mydata, read.table, header = TRUE) 

将每个文件放在一起。

但是，如何从不同的变量文本文件中提取表并将其放入列中？这里的困难之处在于所有文件名都不同，因此我无法找到一种简单的方法来循环文件列表。

Answer 1

考虑将价格、年份、光盘文本文件读取到他们自己的数据框中，然后合并：

pricelist <- list.files(pattern = "price-.*\\.txt")
pricedf <- lapply(pricelist, read.table, header=TRUE)

yearlist <- list.files(pattern = "year-.*\\.txt")
yeardf <- lapply(yearlist, read.table, header=TRUE)

disclist <- list.files(pattern = "disc-.*\\.txt")
discdf <- lapply(disclist, read.table, header=TRUE)

finaldf <- merge(pricedf, yeardf, by=c("longitude", "altitude"))
finaldf <- merge(finaldf, discdf, by=c("longitude", "altitude"))

对于for循环中的通用版本：

items <- c("price", "year", "disc")

for (item in items) {
   assign(paste0(item, "list"), list.files(pattern=paste0(item, "-.*\\.txt")))
   assign(paste0(item, "df"), lapply(get(paste0(item, "list")), read.table, header=TRUE))
}

finaldf <- merge(pricedf, yeardf, by=c("longitude", "altitude"))
finaldf <- merge(finaldf, discdf, by=c("longitude", "altitude"))