如何将多个文本文件合并到一个data.frame中？

Question

假设我在同一个目录下有9个.txt文件。 price1.txt price2.txt price3.txt是来自不同位置的价格表，行和col的名称是相应的经度和高度。 year4,5,6.txt和dis7,8,9.txt是与text1中相同位置的年份和折扣表。

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

我能够使用

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

读取文件

我能使用的名称

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

让每个文件放在一起。

但是，我如何从不同的变量文本文件中提取表格并将它们放入列中？这里困难的部分是所有的文件名都是不同的，所以我不能找出循环文件列表的简单方法。

Answer 1

考虑阅读的价格，一年中，碟片的文本文件到自己的dataframes然后合并：

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"))