如何在R中保存ggcoxzph图？

Posted 2021-05-06

我安装了Cox模型，然后使用qazxsw poi测试了比例风险假设。

我使用cox.zph绘制了缩放的Schoenfeld残差，结果如此整洁，我想保存它。

由于我的变量是一个因子，ggcoxzph返回一个4个图的网格，其中全局pvalue位于顶部。

ggcoxzph

问题是> coxt %>% cox.zph %>% ggcoxzph %>% class [1] "ggcoxzph" "ggsurv" "list" 不接受这些类：

没有适用于'grid.draw'的方法应用于类“c（'ggcoxzph'，'ggsurv'，'list'）的对象”

ggsave()虽然有点像魅力。

由于此测试属于一个函数（将应用于变量列表），因此最好不要在保存之前打印图。

如何以这种方式保存我的情节？

答案

这是使用coxt %>% cox.zph %>% ggcoxzph %>% print的一种方式

gridExtra

完整的例子

library(gridExtra)
library(ggplot2)
ggsave("ggcoxzph", arrangeGrob(grobs = object.ggcoxzph))