Count By Group In R

library(plyr)

count(ti_pos1, 'cpc_cnt_7d');