Re: [問題] 多個檔案合併 取聯集
VAR <- list(NULL) ; x=1
VAR[[x]]<-data.frame(day1=c(23,45,100),names=c("A","B","D")) ; x=x+1
VAR[[x]]<-data.frame(day2=c(77,11,35) ,names=c("A","C","D")) ; x=x+1
VAR[[x]]<-data.frame(day3=c(11,44,55) ,names=c("B","D","E")) ; x=x+1
ROW <- sort(unique(as.character(sapply(VAR,function(s){s[,"names"]}))))
PLATE <- data.frame(rep(NA,length(ROW)),names=ROW)
res <- sapply(VAR,function(s){merge(PLATE,s,by="names",all=TRUE)[,3]})
res[is.na(res)] <- 0
rownames(res) <- ROW
colnames(res) <- sapply(VAR,colnames)[1,]
--
雲南神曲
https://www.youtube.com/watch?v=8cJPxtpDqdU
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.32.215.136
※ 文章網址: http://www.ptt.cc/bbs/R_Language/M.1405060837.A.933.html
討論串 (同標題文章)
完整討論串 (本文為第 5 之 6 篇)：
R_Language 近期熱門文章
PTT數位生活區 即時熱門文章
