r绘制生存函数