用計數在r中創建新列

Question

我在R中有以下矩陣

b = matrix(c(1,1,1,1,1,1,1,1,1,1,1,1,2), ncol = 1)

我執行以下命令來計算所有唯一值。

table(b)

我實際上想知道我應該執行什么命令來獲取包含所有值的列，並在其旁邊顯示包含每個值的計數的列，如下所示。

      [,1] [,2]
 [1,]    1   12
 [2,]    1   12
 [3,]    1   12
 [4,]    1   12
 [5,]    1   12
 [6,]    1   12
 [7,]    1   12
 [8,]    1   12
 [9,]    1   12
[10,]    1   12
[11,]    1   12
[12,]    1   12
[13,]    2    1

Answer 1

我們可以使用ave

cbind(b, ave(b[,1], b[,1], FUN=length))
#       [,1] [,2]
# [1,]    1   12
# [2,]    1   12
# [3,]    1   12
# [4,]    1   12
# [5,]    1   12
# [6,]    1   12
# [7,]    1   12
# [8,]    1   12
# [9,]    1   12
#[10,]    1   12
#[11,]    1   12
#[12,]    1   12
#[13,]    2    1