如何提取生存模型summary()输出指定信息？保留控制台最后n行

方法一：在R环境内捕获并截取输出 #

通过capture.output()捕获summary()的完整输出为字符向量，再用tail()提取最后n行（以保留最后3行为例）：

# 假设生存模型对象为fit
summary_content <- capture.output(summary(fit))
target_lines <- tail(summary_content, 3)

# 打印结果或保存到文件
cat(target_lines, sep = "\n")
writeLines(target_lines, "risk_results.txt")

方法二：终端环境下直接过滤输出 #

如果是通过终端运行R脚本，可借助系统tail命令直接截取最后n行输出并保存：

# 运行R脚本并将最后3行输出写入文件
Rscript your_survival_script.R | tail -n 3 > risk_results.txt

内容的提问来源于stack exchange，提问作者Mark