如何總結R中的行和列？

Question

我有這種桌子：

           aaa     bbb   ccc 
  A         0       3     5    
  B         2       2     2    
  C         2       5     7

我使用anti_join （用於具有非數字值的table ）和table命令以更好的方式將結果分組（類似於Excel中的countif）。

da1 <- anti_join(data1,data2, by=c("pam1","pam2"))
table(da1$pam1,da1$pam2)

我想知道是否還可以將每一行和每一列的總和相加，以便結果中將出現以下內容：

           aaa     bbb   ccc  SUM 
  A         0       3     5    8
  B         2       2     2    6
  C         2       5     7    14
 SUM        4      10     14

Answer 1

我們可以嘗試使用rowSums和colSums

cbind(rbind(df, SUM = rowSums(df)), SUM = c(colSums(df), NA))

#     aaa bbb ccc SUM
#A     0   3   5   4
#B     2   2   2  10
#C     2   5   7  14
#SUM   8   6  14  NA

Answer 2

一個addmargins選擇是addmargins

addmargins(as.matrix(df1))
#    aaa bbb ccc Sum
#A     0   3   5   8
#B     2   2   2   6
#C     2   5   7  14
#Sum   4  10  14  28

數據

df1 <- structure(list(aaa = c(0L, 2L, 2L), bbb = c(3L, 2L, 5L), ccc = c(5L, 
2L, 7L)), .Names = c("aaa", "bbb", "ccc"), class = "data.frame", row.names = c("A", 
"B", "C"))