ID record
1 yes
1 yes
1 yes
2 yes
2 yes
3 yes
怎样处理成
ID Times
1 3
2 2
3 1
数据量四万多条,ID两万多……
1 yes
1 yes
1 yes
2 yes
2 yes
3 yes
怎样处理成
ID Times
1 3
2 2
3 1
数据量四万多条,ID两万多……
Df=data.frame(ID=sample(1:20,40000,TRUE),
record=sample(c('yes','no'),40000,TRUE))
aggregate(Df$record=="yes",by=list(Df$ID), FUN=sum)
library(plyr)
a # your data.frame
b = count(a,vars = "names")
names(b) <- c("names","Times")
b
ddply(a,.(ID),count)