在日期的处理上一直不成功，
> head(x$开始还款日期)
[1] "20130801 00:00:00" "20130801 00:00:00" "20130801 00:00:00" "20130801 00:00:00" "20130801 00:00:00"
[6] "20130801 00:00:00"

> x$开始还款日期<-as.Date(x$开始还款日期，"%Y%m%d 00:00:00")
Error: unexpected input in "x$开始还款日期<-as.Date(x$开始还款日期?

尝试单个值，发现能成功
> y<-"20160105 00:00:00"
> y_d<-as.Date(y,"%Y%m%d 00:00:00")
> y_d
[1] "2016-01-05"

一直弄不明白什么原因造成的。