如何在 R 中建立包含每行和每列小計的表格？

每行和每列的小計實際上稱為邊緣和。因此，我們可以對錶格使用 addmargins 函式來獲取每行和每列的小計。

例如，如果我們有一個名為 TABLE 的表格，則可以使用以下命令新增小計：

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

請檢視以下示例以瞭解其工作原理。

示例 1

以下程式碼片段建立了一個示例資料框：

x1<-rpois(20,1)
y1<-rpois(20,5)
df1<-data.frame(x1,y1)
df1

輸出

建立了以下資料框：

   x1 y1
1  0  5
2  1  6
3  0  3
4  1  4
5  3  6
6  2  4
7  3  6
8  0  4
9  1  5
10 0  2
11 2  5
12 1  2
13 0  7
14 2  4
15 0  6
16 2  3
17 0  2
18 1  5
19 2  5
20 0  5

要建立包含每行和每列小計的表格，請將以下程式碼新增到上述程式碼片段中：

x1<-rpois(20,1)
y1<-rpois(20,5)
df1<-data.frame(x1,y1)
table1<-table(df1$x1,df1$y1)
table1

輸出

如果您將以上所有程式碼片段作為單個程式執行，它將生成以下輸出：

   2  3  4  5  6  7
0  2  1  1  2  1  1
1  1  0  1  2  1  0
2  0  1  2  2  0  0
3  0  0  0  0  2  0

要建立包含每行和每列小計的表格，請將以下程式碼新增到上述程式碼片段中：

table1<-addmargins(table1,c(1,2),sum)
Margins computed over dimensions
in the following order:
1:
2:
table1

輸出

如果您將以上所有程式碼片段作為單個程式執行，它將生成以下輸出：

    2  3  4  5  6  7  sum
0   2  1  1  2  1  1  8
1   1  0  1  2  1  0  5
2   0  1  2  2  0  0  5
3   0  0  0  0  2  0  2
sum 3  2  4  6  4  1 20

示例 2

以下程式碼片段建立了一個示例資料框：

x2<-rpois(20,5)
y2<-rpois(20,5)
df2<-data.frame(x2,y2)
df2

輸出

建立了以下資料框：

   x2 y2
1  1  7
2  7  6
3  5  3
4  4  3
5  6  3
6  4  3
7  4  4
8  4  7
9  4  5
10 4  6
11 7  7
12 8  9
13 4  7
14 6  6
15 3  6
16 7  5
17 3  3
18 4  0
19 6  7
20 5  4

要建立包含每行和每列小計的表格，請將以下程式碼新增到上述程式碼片段中：

x2<-rpois(20,5)
y2<-rpois(20,5)
df2<-data.frame(x2,y2)
table2<-table(df2$x2,df2$y2)
table2

輸出

如果您將以上所有程式碼片段作為單個程式執行，它將生成以下輸出：

   0  3  4  5  6  7 9
1  0  0  0  0  0  1 0
3  0  1  0  0  1  0 0
4  1  2  1  1  1  2 0
5  0  1  1  0  0  0 0
6  0  1  0  0  1  1 0
7  0  0  0  1  1  1 0
8  0  0  0  0  0  0 1

要建立包含每行和每列小計的表格，請將以下程式碼新增到上述程式碼片段中：

table2<-addmargins(table2,c(1,2),sum)
Margins computed over dimensions
in the following order:
1:
2:
table2

輸出

如果您將以上所有程式碼片段作為單個程式執行，它將生成以下輸出：

    0  3  4  5  6  7  9 sum
1   0  0  0  0  0  1  0  1
3   0  1  0  0  1  0  0  2
4   1  2  1  1  1  2  0  8
5   0  1  1  0  0  0  0  2
6   0  1  0  0  1  1  0  3
7   0  0  0  1  1  1  0  3
8   0  0  0  0  0  0  1  1
sum 1  5  2  2  4  5  1 20

更新時間： 2021 年 11 月 3 日

2K+ 閱讀量

開啟你的 職業生涯

透過完成課程獲得認證

開始學習
廣告