##使用sql查找一年内注销多于一次的人
library(sqldf)
cancel_cnt<-sqldf("select driver_id,count(ctime) as cancel_cnt
from dta0
group by driver_id
having count(ctime)>1")
##使用sql查找一年内注销多于一次的人
library(sqldf)
cancel_cnt<-sqldf("select driver_id,count(ctime) as cancel_cnt
from dta0
group by driver_id
having count(ctime)>1")