如何在R中保存ggcoxzph图？

Question

我安装了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()虽然有点像魅力。

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

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

Answer 1

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

gridExtra

完整的例子

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