找到的子類

Question

獨特的計數我有一個數據，看起來像這樣

sample <- data.frame(DEPT = c(1,1,1,1,2,2,2,2),CLASS = c(1,1,1,2,1,1,2,2),SUBCLASS= c(1,1,2,2,1,1,1,1),ID = c(101,102,103,104,105,106,107,108)) 

> sample 
    DEPT CLASS SUBCLASS ID 
1 1  1  1 101 
2 1  1  1 102 
3 1  1  2 103 
4 1  2  2 104 
5 2  1  1 105 
6 2  1  1 106 
7 2  2  1 107 
8 2  2  1 108 

通過最終的數據應該是這樣的

> sample 
    DEPT CLASS SUBCLASS ID ITEM_SUBCLASS_COUNT 
1 1  1  1 101     2 
2 1  1  1 102     2 
3 1  1  2 103     1 
4 1  2  2 104     1 
5 2  1  1 105     2 
6 2  1  1 106     2 
7 2  2  1 107     2 
8 2  2  1 108     2 

如何才能做到這一點使用dplyr？

Answer 1

我們可以使用data.table

library(data.table) 
setDT(sample)[,ITEM_SUBCLASS_COUNT := .N , .(DEPT, CLASS, SUBCLASS)] 

---

或者使用base R

sample$ITEM_SUBCLASS_COUNT <- with(sample, ave(seq_along(DEPT), DEPT, 
            CLASS, SUBCLASS, FUN = length))