作者gsuper (Logit(odds))
看板R_Language
标题Re: [问题] 多个档案合并 取联集
时间Fri Jul 11 14:40:20 2014
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
冰岛神曲
https://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://webptt.com/cn.aspx?n=bbs/R_Language/M.1405060837.A.933.html