R Data.Table Count Value Types By Group

Question

DATA=data.frame(SUBJECT=c(1,1,1,2,2,2,3,3,4), TIME=(1,2,3,1,2,3,1,2,1),
TYPE=c("dog","dog","cat","cat","dog","cat&