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
冰島神曲
http://www.youtube.com/watch?v=OsY7UEOb2hM&list=PLBAA01FC041BADDC9
雲南神曲2
https://www.youtube.com/watch?feature=player_embedded&v=WsIotYyz1fU#at=187
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.32.215.136
※ 文章網址: http://www.ptt.cc/bbs/R_Language/M.1405060837.A.933.html