代码如下：
data$Exam_year<-as.factor(data$Exam_year)
data$Exam_year<-relevel(data$Exam_year,ref="2016")
Error in relevel.ordered(data$Exam_year, ref = "2016") :
  'relevel' only for unordered factors