如何在R中建立一個頻數表,其中包含不存在值的零頻數?


當我們在R中使用table函式時,輸出顯示向量或資料框列中可用值的頻率。如果我們想建立包含不存在於向量或列中的值的零頻率的表,那麼首先需要將它們轉換為因子,然後使用table函式。

示例1

 線上演示

x1<−c(1,1,1,1,1,1,1,2,2,2,2,2,3,3,3,3,4,4,4,4,6,6)
x1<−factor(x1,levels=c(1:6))
table(x1)

輸出

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

示例2

 線上演示

x2<−sample(c(1,2,3,5,6,7),200,replace=TRUE)
x2

輸出

[1] 2 3 1 7 7 2 3 5 5 3 1 3 7 6 7 2 6 3 2 1 1 1 5 7 3 6 6 5 5 5 5 2 2 7 7 6 3
[38] 7 1 6 2 7 3 6 5 2 6 7 7 2 3 1 3 3 7 1 1 5 7 5 3 1 6 2 3 1 2 5 3 3 1 3 7 2
[75] 1 6 2 1 6 7 7 2 1 3 7 6 7 6 3 5 6 7 7 7 3 3 2 6 2 1 3 7 6 1 3 5 5 3 7 1 3
[112] 2 1 2 3 1 3 6 3 3 5 3 2 2 7 7 6 3 2 2 3 5 3 7 6 6 6 6 2 7 1 7 7 5 3 6 5 3
[149] 5 1 6 2 5 5 1 6 3 6 3 6 5 5 1 1 6 3 3 7 2 3 5 3 1 1 7 1 3 2 3 3 7 7 7 3 5
[186] 1 3 7 6 7 5 3 6 3 6 1 1 1 3 7

示例

x2<−factor(x2,levels=c(1:7))
table(x2)

輸出

x2
1 2 3 4 5 6 7
32 26 48 0 26 31 37

示例3

 線上演示

x3<−sample(c(0,1,2,4,5,6),500,replace=TRUE)
x3

輸出

[1] 5 4 4 6 6 4 2 2 5 0 1 1 1 1 0 2 2 1 0 1 5 2 4 5 0 5 4 2 5 2 6 0 1 6 4 2 4
[38] 6 0 6 2 6 5 1 6 0 0 2 4 2 4 5 4 4 0 1 5 1 5 6 4 2 5 4 5 6 0 2 1 1 2 4 5 2
[75] 6 0 4 0 5 5 0 2 5 6 1 5 6 2 6 2 0 0 1 6 2 2 5 6 1 5 5 6 1 1 6 5 1 6 5 2 2
[112] 4 0 1 4 4 0 6 0 4 5 6 5 2 4 5 5 0 4 2 1 4 5 5 1 2 5 2 4 4 2 1 6 0 0 2 5 6
[149] 2 6 0 0 1 1 4 6 2 1 2 1 1 6 0 4 6 6 4 1 5 0 5 1 0 0 6 6 1 6 5 4 2 2 1 6 1
[186] 0 0 1 4 4 4 4 1 0 5 1 0 1 1 5 1 4 1 5 1 0 0 5 6 5 0 0 0 4 5 1 6 2 5 6 1 2
[223] 5 6 6 4 6 5 1 6 6 2 0 5 6 5 5 5 2 4 1 6 2 2 0 6 6 5 4 5 4 4 4 5 6 0 2 5 1
[260] 6 5 6 6 2 6 2 0 0 5 4 4 4 0 4 1 6 5 5 1 4 6 4 5 4 6 6 1 4 0 2 1 5 6 2 2 5
[297] 1 5 2 1 1 6 2 2 0 6 5 0 1 6 4 2 5 0 2 5 0 2 0 1 6 5 1 2 6 0 2 6 5 4 5 5 0
[334] 2 5 0 2 1 4 0 2 5 6 6 1 2 2 5 5 5 1 0 4 4 0 2 0 0 2 0 4 2 5 6 0 5 5 2 5 1
[371] 4 5 0 5 6 6 6 4 6 6 5 2 5 5 4 6 5 1 1 6 6 2 0 1 5 6 4 1 0 5 5 2 6 5 0 4 4
[408] 6 4 0 6 2 2 5 6 2 2 5 4 5 0 6 0 4 1 6 0 2 2 6 2 2 2 5 0 2 1 5 5 1 0 4 6 5
[445] 1 5 5 1 1 6 2 0 1 5 2 6 4 4 5 2 1 6 1 5 4 5 0 4 6 1 0 4 0 4 1 1 2 4 5 6 2
[482] 1 1 0 1 0 1 5 5 5 5 2 6 6 5 2 1 5 2 2

輸出

x3<−factor(x3,levels=c(0:6))
table(x3)

輸出

x3
0 1 2 3 4 5 6
74 80 84 0 71 104 87

示例4

 線上演示

x4<−sample(c(0,1,2,5),500,replace=TRUE)
x4

輸出

[1] 0 0 5 0 0 0 0 2 2 2 1 5 0 1 1 1 2 5 1 5 2 5 5 0 1 2 0 1 1 5 1 5 0 0 1 2 2
[38] 2 0 2 2 0 2 1 2 2 2 1 2 5 1 1 5 0 1 5 2 1 1 0 1 0 5 1 2 2 1 0 0 5 2 2 1 5
[75] 5 0 2 2 2 0 5 0 2 2 2 5 0 5 1 1 1 5 1 5 2 0 5 2 0 0 5 0 1 1 1 5 5 5 2 1 1
[112] 0 5 2 5 2 1 2 1 5 0 0 0 1 2 2 0 0 1 0 5 5 0 0 1 1 2 5 5 5 1 2 2 0 0 1 1 5
[149] 0 1 5 2 1 0 5 0 5 0 0 2 0 2 2 2 2 2 1 1 2 5 1 1 1 5 5 0 1 1 5 1 2 0 1 2 1
[186] 2 1 5 0 0 0 0 5 0 5 2 5 2 1 0 2 2 2 2 1 5 5 2 0 1 0 1 0 1 0 0 2 0 1 0 5 1
[223] 0 2 0 0 1 2 2 1 5 0 5 5 5 5 2 5 1 0 5 2 0 1 0 5 1 0 5 2 5 0 2 0 2 1 5 5 1
[260] 2 5 0 0 5 0 1 1 1 0 2 0 0 2 2 2 1 0 1 2 2 0 0 0 1 2 0 5 2 5 2 1 1 2 2 1 1
[297] 1 0 0 5 5 5 5 1 5 0 1 5 0 2 5 5 2 5 0 1 0 2 0 1 2 0 1 2 5 5 0 5 0 5 5 1 2
[334] 1 2 1 2 5 2 2 1 2 2 5 1 5 2 5 0 0 1 5 1 1 0 0 0 1 1 0 0 2 1 2 1 1 1 5 1 1
[371] 1 1 1 2 2 2 1 1 1 2 5 2 0 1 1 5 2 5 2 0 0 0 0 5 5 1 0 2 0 5 0 5 0 2 1 0 0
[408] 5 1 1 2 0 5 1 1 0 2 5 0 5 2 5 2 5 2 0 0 5 0 0 0 1 2 5 5 2 2 1 2 2 0 5 1 5
[445] 5 0 1 1 1 1 5 1 5 5 0 1 5 0 1 2 5 0 1 2 0 2 1 5 0 1 1 2 1 0 0 0 1 5 1 5 1
[482] 5 2 0 2 5 5 1 1 0 5 1 2 1 5 2 2 5 1 0

示例

x4<−factor(x4,levels=c(0:5))
table(x4)

輸出

x4
0 1 2 3 4 5
128 135 120 0 0 117

示例5

 線上演示

x5<−sample(c(0,1,5,10),500,replace=TRUE)
x5

輸出

[1] 1 0 1 0 5 5 10 0 0 1 10 0 0 5 10 1 5 1 10 0 1 0 1 5 1
[26] 5 10 5 10 1 10 1 0 1 1 0 5 5 5 0 10 5 10 5 5 0 5 0 0 1
[51] 0 5 5 0 1 10 10 0 0 1 0 0 0 10 5 0 1 1 0 0 5 10 0 5 1
[76] 10 10 5 1 1 0 0 0 0 0 5 5 0 10 0 10 0 5 0 10 5 0 1 1 5
[101] 0 1 5 1 1 0 0 5 1 10 0 10 5 5 0 1 5 0 10 1 10 10 0 10 0
[126] 5 0 10 5 5 10 10 10 10 10 5 0 5 0 0 0 5 0 10 0 10 5 10 1 0
[151] 10 5 0 10 10 0 5 10 0 0 0 5 5 0 1 5 5 1 5 5 0 10 10 10 1
[176] 0 5 0 0 10 5 5 0 10 10 5 10 0 1 1 1 1 0 0 10 10 1 10 1 5
[201] 1 0 5 10 10 10 1 10 5 5 0 5 10 5 1 5 5 10 5 1 1 0 0 10 0
[226] 0 5 1 1 0 0 1 5 0 10 1 5 0 0 1 10 1 5 0 5 0 5 1 0 5
[251] 1 10 5 0 5 0 1 5 1 1 10 5 10 0 5 0 1 0 0 5 0 5 1 10 10
[276] 0 0 0 10 0 1 5 10 5 5 0 5 5 0 1 5 0 10 1 0 5 1 0 5 0
[301] 1 5 5 1 1 0 10 0 10 10 10 5 10 0 10 5 5 0 5 10 0 10 5 10 5
[326] 0 10 1 0 1 0 1 1 5 1 10 5 0 5 5 5 10 10 10 10 1 10 1 1 10
[351] 5 1 1 1 1 5 0 10 0 10 10 5 10 1 10 5 10 10 10 1 0 0 0 0 10
[376] 5 0 5 0 5 10 1 10 10 1 0 10 10 1 10 1 5 10 0 0 1 0 5 0 0
[401] 5 1 0 10 1 0 10 5 10 5 5 10 0 10 1 0 10 10 1 0 10 0 0 10 10
[426] 5 5 10 1 10 0 5 0 5 1 5 10 5 1 0 5 0 10 0 5 5 5 0 0 10
[451] 5 0 10 5 10 1 5 1 5 0 1 10 5 10 0 1 10 0 0 10 1 1 0 0 5
[476] 0 5 10 5 5 10 5 5 1 5 1 10 1 1 10 0 1 0 1 1 5 1 1 0 10

示例

x5<−factor(x5,levels=c(0:10))
table(x5)

輸出

x5
0 1 2 3 4 5 6 7 8 9 10
144 104 0 0 0 129 0 0 0 0 123

更新於:2021年2月9日

1000+ 次瀏覽

啟動你的職業生涯

透過完成課程獲得認證

開始
廣告
© . All rights reserved.