Сначала преобразуйте table
в фрейм данных / матрицу, затем добавьте новый столбец, используя rowSums
.
На воспроизводимом примере из mtcars
.
temp <- table(mtcars$cyl, mtcars$am)
df <- as.data.frame.matrix(temp)
df$Total <- rowSums(df)
#Or if you just want to initialize
#df$Total <- 0
df
# 0 1 Total
#4 3 8 11
#6 4 3 7
#8 12 2 14