用表（）計算並排除0的

Question

我嘗試計算三元組;爲了這個，我使用的是被裝在一個數據幀三個向量：

X=c(4,4,4,4,4,4,4,4,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,3,3)    
Y=c(1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,4,2,2,2,2,3,4,1,1,2,2,3,3,4,4) 
Z=c(4,4,5,4,4,4,4,4,6,1,1,1,1,1,1,1,2,2,2,2,7,2,3,3,3,3,3,3,3,3) 


Count_Frame=data.frame(matrix(NA, nrow=(length(X)), ncol=3)) 

Count_Frame[1]=X 
Count_Frame[2]=Y 
Count_Frame[3]=Z 

Counts=data.frame(table(Count_Frame)) 

存在以下問題：如果我增加值範圍在向量或使用更多的載體中，「計數」數據框中很快接近其大小限制由於很多0計數。有沒有辦法在生成「計數」時排除0計數？

Answer 1

你可以用aggregate做到這一點：

Count_Frame$one <- 1 
aggregate(one ~ X1 + X2 + X3, data=Count_Frame, FUN=sum) 

這將計算table積極實例，但不會列出零個計數。

Answer 2

一種解決方案是創建列值的組合和計數，而不是那些：

library(tidyr) 
as.data.frame(table(unite(Count_Frame, tmp, X1, X2, X3))) %>% 
    separate(Var1, c('X1', 'X2', 'X3')) 

結果輸出是：

X1 X2 X3 Freq 
1 1 1 1 3 
2 1 1 6 1 
3 1 2 1 2 
4 1 3 1 1 
5 1 4 1 1 
6 2 2 2 4 
7 2 3 7 1 
8 2 4 2 1 
9 3 1 3 2 
10 3 2 3 2 
11 3 3 3 2 
12 3 4 3 2 
13 4 1 4 7 
14 4 1 5 1 

Answer 3

我們可以使用data.table。將'data.frame'轉換爲'data.table'（setDT(Count_Frame)），按所有列（.(X, Y, Z)）分組，我們得到一個或多個行（.N）。

library(data.table) 
setDT(Count_Frame)[,.N ,.(X, Y, Z)] 
# X Y Z N 
# 1: 4 1 4 7 
# 2: 4 1 5 1 
# 3: 1 1 6 1 
# 4: 1 1 1 3 
# 5: 1 2 1 2 
# 6: 1 3 1 1 
# 7: 1 4 1 1 
# 8: 2 2 2 4 
# 9: 2 3 7 1 
#10: 2 4 2 1 
#11: 3 1 3 2 
#12: 3 2 3 2 
#13: 3 3 3 2 
#14: 3 4 3 2 

而是命名所有的列，我們可以用names(Count_Frame)以及（如果有很多列）

setDT(Count_Frame)[,.N , names(Count_Frame)] 

Answer 4

或者使用plyr：

library(plyr) 
count(Count_Frame, colnames(Count_Frame)) 

輸出

# > count(Count_Frame, colnames(Count_Frame)) 
    # X1 X2 X3 freq 
# 1 1 1 1 3 
# 2 1 1 6 1 
# 3 1 2 1 2 
# 4 1 3 1 1 
# 5 1 4 1 1 
# 6 2 2 2 4 
# 7 2 3 7 1 
# 8 2 4 2 1 
# 9 3 1 3 2 
# 10 3 2 3 2 
# 11 3 3 3 2 
# 12 3 4 3 2 
# 13 4 1 4 7 
# 14 4 1 5 1