ラベルに従って二次元テーブルの値を合計します。

Question

Sum the values according to labels in Rから来ています。

私は2次元のテーブルでの作業は同様に、1次元のものではなく、大きく異なっていることが通知されてきた：

 a a,b a,b,c c 
d 5  2  1  2 
d,e 2  1  1  1 

そして、我々は達成したい：

 a b c 
d 12 5 5 
e 4 2 2 

だから、どのようにこのことができますR？

Answer 1

少し複雑、それが動作するはずです：私は中断した場合

m <- as.matrix(data.frame('a'=c(5,2),'a,b'=c(2,1), 
          'a,b,c'=c(1:1),'c'=c(2,1), 
          check.names = FALSE,row.names=c('d','d,e'))) 
colNamesSplits <- strsplit(colnames(m),',') 
rowNamesSplits <- strsplit(rownames(m),',') 

colNms <- unique(unlist(colNamesSplits)) 
rowNms <- unique(unlist(rowNamesSplits)) 

colIdxs <- unlist(sapply(1:length(colNamesSplits), 
         function(i) rep.int(i,length(colNamesSplits[[i]])))) 
rowIdxs <- unlist(sapply(1:length(rowNamesSplits), 
         function(i) rep.int(i,length(rowNamesSplits[[i]])))) 
colIdxsMapped <- unlist(sapply(colNamesSplits, function(n) match(n,colNms))) 
rowIdxsMapped <- unlist(sapply(rowNamesSplits, function(n) match(n,rowNms))) 

# let's create the fully expanded matrix 
expanded <- as.matrix(m[rowIdxs,colIdxs]) 
rownames(expanded) <- rowNms[rowIdxsMapped] 
colnames(expanded) <- colNms[colIdxsMapped] 

# aggregate expanded by cols : 
expanded <- do.call(cbind,lapply(split(1:ncol(expanded),colnames(expanded)), 
       function(ii) rowSums(expanded[,ii,drop=FALSE]))) 
# aggregate expanded by rows : 
expanded <- do.call(rbind,lapply(split(1:nrow(expanded),rownames(expanded)), 
       function(ii) colSums(expanded[ii,,drop=FALSE]))) 

> expanded 
    a b c 
d 12 5 5 
e 4 2 2