如何將多個文本文件合併到一個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"))