R语言中的logistic回归的ROC曲线

根据贵网站的教学视频用R语言画logistic回归的ROC曲线,得到如图所下结果,请问一下老师这是什么原因造成的啊?