这边我是用"reshape"这个套件做的 file_1 <- data.frame(name=c("A","B","D"),value=c(23,45,100),day="day1") file_2 <- data.frame(name=c("A","C","D"),value=c(77,11,35),day="day2") file_3 <- data.frame(name=c("B","D","E"),value=c(11,44,55),day="day3") #首先我们需要重新整理一下资料型态，把资料变成 #file_1 #name value day #A 23 day1 #B 45 day1 #D 100 day1 #这样的形态 x <- rbind(file_1,file_2,file_3) #再来把三个资料合在一起 name day1 day 1 A 23 day1 2 B 45 day1 3 D 100 day1 4 A 77 day2 5 C 11 day2 6 D 35 day2 7 B 11 day3 8 D 44 day3 9 E 55 day3 library("reshape") 呼叫reshape套件 result<- cast(x,name~day,value=c("value")) #之後转置DATA #结果变这样 name day1 day2 day3 1 A 23 77 NA 2 B 45 NA 11 3 D 100 35 44 4 C NA 11 NA 5 E NA NA 55 应该也算符合您的需求吧 ? ※ 引述《celestialgod (攸蓝)》之铭言： : 大概写了一下，长这样，哪里有问题，请务必告知我，谢谢 : 其他大大或是有更好的方法，我用比较笨的方法硬干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), 来自: 123.192.218.97 ※ 文章网址: http://webptt.com/cn.aspx?n=bbs/R_Language/M.1404924954.A.CA5.html