大概写了一下，长这样，哪里有问题，请务必告知我，谢谢
其他大大或是有更好的方法，我用比较笨的方法硬干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