Потеря имен dimnames таблицы после cbind или rbind

После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

Ответы на вопрос(1)

Ваш ответ на вопрос