用R建立了列线图模型，要画出与实际一年生存率的比较图，代码是啥，谢谢！