大概寫了一下，長這樣，哪裏有問題，請務必告知我，謝謝 其他大大或是有更好的方法，我用比較笨的方法硬幹QQ working_path = "the directory of your file" setwd(working_path) file_list = dir()[grepl("txt", dir())] dat_list = lapply(1:length(file_list), function(l){ dat = read.table(l, header = TRUE) dat = data.frame(cate = row.names(dat), dat) dat }) output_table = merge(dat_list[[1]], dat_list[[2]], by = "cate", all = TRUE) if(length(dat_list) >= 3) { for (i in 3:length(dat_list)) output_table = merge(temp, dat_list[[i]], by = "cate", all = TRUE) } output_table[which(is.na(output_table))] = 0 ※ 引述《iterate (碎形)》之銘言： : : ctrl + y 可以刪除一整行，請將不需要的內容刪除 : 文章分類提示: : - 問題: 多個檔案合併時，取聯集。範例如下。 : : [問題類型]: : : 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來) : : [軟體熟悉度]: : 請把以下不需要的部份刪除 : 入門(寫過其他程式，只是對語法不熟悉) : [問題敘述]: : 請簡略描述你所要做的事情，或是這個程式的目的 : file_1: : day1 : A 23 : B 45 : D 100 : file_2: : day2 : A 77 : C 11 : D 35 : file_3: : day3 : B 11 : D 44 : E 55 : 希望能合併成下表： : day1 day2 day3 : A 23 77 0 : B 45 0 11 : C 0 11 0 : D 100 35 44 : E 0 0 55 : [程式範例]: 無 : [關鍵字]: merge, dir, grepl --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.227.246.151 ※ 文章網址: http://webptt.com/m.aspx?n=bbs/R_Language/M.1404705207.A.467.html ※ 編輯: celestialgod (140.116.152.225), 07/07/2014 12:13:12