R Plot 竞争风险模型 “多了一条线以及0 1”，可能是图例？

问题遇到的现象和发生背景： R Plot 竞争风险模型

问题相关代码，请勿粘贴截图 ：

crmod <- cuminc(rtime,rstatus,group40)
crmod
plot(crmod,xlab = 'Month', ylab = 'CIF',lwd=2,lty=1,
col = c('red','blue','black','forestgreen'))

运行结果及报错内容

我的解答思路和尝试过的方法：重新运行代码，检查数据无效

我想要达到的结果

删去多出来的红色的线和“0 1”