data$Exam_year<-as.Date(as.character(data$Exam_year),"%Y-%m-%d")
>
>
> data$Period<-1
> data$Period[which(data$Exam_year>=as.Date("2016-01-01",format="%Y-%m-%d"))]<-2
> data$Period<-as.factor(data$Period)
> levels(data$Period)<-c("P1","P2")

代码显示p2为0，不知道哪里错误，大神帮忙看看

大神帮帮孩子吧