Perdita dei nomi dei dimnames di una tabella dopo cbind o rbind

Question

Dopo cbind o rbind -in un oggetto tabella (ad esempio, aggiungendo un margine di somme o somesuch), i nomi dei dimnames vengono persi (vedere). Ho trovato questa "soluzione alternativa", ma mi chiedevo se c'è una soluzione fuori dal pacchetto per questo che sembra meno hacky. Forse qualcosa che può essere fatto al volo? Vorrei mantenere l'oggetto della classe 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

Come su addmargins? Calcola somme per impostazione predefinita, ma è possibile collegare qualsiasi funzione personalizzata (s). Ad esempio:

> 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