在cbind或rbind之後丟失表名的名稱

Question

在cbind或之後（例如，添加一個或多個和的餘量），昏暗名稱會丟失（請參閱y）。我發現這個「解決方法」，但想知道是否有一個解決方案，這看起來不那麼hacky。也許有些事情可以在飛行中完成？我想保留類table的對象。

> (x <- table(1:3, sample(1:3), dnn = c("rows", "cols"))) 
    cols 
rows 1 2 3 
    1 1 0 0 
    2 0 0 1 
    3 0 1 0 
> (y <- cbind(x, "4" = 4:6)) # "rows" and "cols" get lost 
    1 2 3 4 
1 1 0 0 4 
2 0 0 1 5 
3 0 1 0 6 
> names(dimnames(y)) <- names(dimnames(x)) 
> y 
    cols 
rows 1 2 3 4 
    1 1 0 0 4 
    2 0 0 1 5 
    3 0 1 0 6 

Answer 1

addmargins怎麼樣？它默認計算總和，但可以插入任何自定義函數。例如：

> addmargins(x, margin=c(2,2), FUN=list('sum', 'mean')) 
Margins computed over dimensions 
in the following order: 
1: cols 
2: cols 
    cols 
rows 1 2 3 sum mean 
    1 0.0 1.0 0.0 1.0 0.5 
    2 0.0 0.0 1.0 1.0 0.5 
    3 1.0 0.0 0.0 1.0 0.5