Tạo bảng với tổng số phụ cho mỗi hàng và mỗi cột

Question

tôi biết làm thế nào để tạo bảng trong R sử dụng table, như thế này:

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 

Làm thế nào tôi có thể thêm tổng lợi nhuận của bảng để làm cho nó trông giống như:

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 

Answer 1

> a 
    [,1] [,2] [,3] 
[1,] 1 1 1 
[2,] 1 1 1 
[3,] 1 1 1 

> a <- cbind(a, rowSums(a)) 
> a <- rbind(a, colSums(a)) 
> a 
    [,1] [,2] [,3] [,4] 
[1,] 1 3 1 5 
[2,] 1 1 1 3 
[3,] 1 1 1 3 
[4,] 3 5 3 11 

Một cách tiếp cận:

a <- addmargins(a, c(1, 2), sum)