Despuéscbind orbind -ing un objeto de tabla (por ejemplo, agregando un margen de sumas o somesuch), los nombres de los nombres oscuros se pierden (veay). Encontré esta "solución", pero me preguntaba si hay una solución fuera de la bolsa que parezca menos hacky. ¿Quizás algo que se pueda hacer sobre la marcha? Me gustaría mantener el objeto de la clasetable.

>   (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