Создать таблицу с промежуточным итогом для каждой строки и столбца

Я знаю, как создать таблицу в R с использованием таблицы , вот так:

x <- rep(1:3,4)
y <- rep(1:4,3)
z<- cbind(x,y)
table(z[,1],z[,2])

    1 2 3 4
  1 1 1 1 1
  2 1 1 1 1
  3 1 1 1 1

Как я могу добавить итоговую величину полей таблицы, чтобы она выглядела так:

    1 2 3 4
  1 1 1 1 1 4
  2 1 1 1 1 4
  3 1 1 1 1 4
    3 3 3 3