Потеря имен уменьшенных имен таблицы после cbind или rbind

Question

После cbind или rbind -в табличном объекте (например, добавлении разницы сумм или некоторого количества), имена dimnames теряются (см. y). Я нашел это «обходное решение», но задавался вопросом, есть ли из-за этого решение сумки, которое выглядит менее взломанным. Возможно, что-то, что можно сделать «на лету»? Я хотел бы сохранить объект класса 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