官员包是否接受 ggsurvplot-object？

Question

我正在尝试使用官员包将 ggsurvplot-object 导出到 powerpoint，但没有成功。我能够找到很多关于如何使用现在已经过时的 ReporterS-package 的说明，并提到该官员也应该工作。文档中似乎没有提到这一点。那么这应该工作吗？是否可以使用这些工具将矢量化生存图绘制到 pptx-slide 中？

totsur <- ggsurvplot(yhd1,
           data = sappivertailu,
           combine=TRUE,
           xlab = "Time, months", 
           ylab="Survival", 
           title="Overall survival",
           lwd=2,
           palette="jco",
           xscale = "d_m",
           xlim = c(0,730.5),
           break.x.by = 91.3,
           risk.table = TRUE,
           pval = TRUE,
           fontsize = 3)
totsur
my_vec_graph <- dml(code = totsur)

doc <- read_pptx()
doc <- add_slide(doc, layout = "Overall survival", master = "Office Theme")
doc <- ph_with(doc, my_vec_graph, location = ph_location_fullsize() )
print(doc, target = "Sappitutkimus/Charts/survi1.pptx")

更改dml(ggobj = totsur) 也不起作用。我做错了什么？

编辑：感谢以下所有 cmets！另一个更新。数据没有任何问题。经过一点调试，我的原始数据产生了预期的结果。

还有一个问题。包似乎无法在同一张幻灯片中添加风险表和生存曲线。是的，您可以通过在单独的幻灯片上制作两个单独的图来传递这一点，但我认为这不是一个好习惯。

如果我没有完全弄错的话，官员和记者有一些共同的代码，这个问题也存在。 https://github.com/kassambara/survminer/issues/314

有人知道解决这个问题的方法吗？这是我目前正在使用的更紧凑的块。否则效果很好。

yhd1 <- survfit(Surv(sappivertailu$Survi, sappivertailu$Kuolema) ~ Arm, data=koe)

totsur <- 
  ggsurvplot(yhd1,
           combine = TRUE,
           data = sappivertailu,
      #     risk.table = TRUE,
           pval = TRUE,
           fontsize = 3
           )
totsur
my_vec_graph <- rvg::dml(ggobj = last_plot())

doc <- read_pptx()
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
doc <- ph_with(doc, my_vec_graph, location = ph_location_fullsize() )
print(doc, target = "Sappitutkimus/Charts/survi1.pptx")

编辑 n:o 2：以及有关所需结果的提示。

Answer 1

当然可以导出ggsurvplots。通过officer 到 pptx。您的代码有两个问题。首先，您必须使用 rvg::dml(ggobj = ...) 。第二个你设置layout = "Overall survival"。但是officer 附带的默认 pptx 中没有具有此名称的布局，即您只能使用 pptx 模板中存在的布局。解决这两个问题并利用ggsurvplot 文档中的基本示例：

require("survival")
#> Loading required package: survival
library(survminer)
#> Loading required package: ggplot2
#> Loading required package: ggpubr
library(officer)

fit<- survfit(Surv(time, status) ~ sex, data = lung)

# Basic survival curves
ggsurvplot(fit, data = lung)


my_vec_graph <- rvg::dml(ggobj = last_plot())

doc <- read_pptx()
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
doc <- ph_with(doc, my_vec_graph, location = ph_location_fullsize() )
print(doc, target = "survi2.pptx")

编辑如果您想在同一张幻灯片上有多个内容，您可以将布局更改为Two Content 并使用ph_location_left/right：

doc <- read_pptx()
doc <- add_slide(doc, layout = "Two Content", master = "Office Theme")
doc <- ph_with(doc, my_vec_graph, location = ph_location_left() )
doc <- ph_with(doc, my_vec_graph, location = ph_location_right() )
print(doc, target = "survi2.pptx")

Answer 2

令我惊讶的是，如果您将生存情节嵌入print() 语句中，则可以在dml() 中使用code = 参数。请务必包含newpage = FALSE:

require("survival")
# Loading required package: survival
library(survminer)
#> Loading required package: ggplot2
#> Loading required package: ggpubr
library(officer)

fit<- survfit(Surv(time, status) ~ sex, data = lung)

# Basic survival curves
p = ggsurvplot(fit, data = lung, risk.table = TRUE)
    
my_vec_graph <- rvg::dml(code = print(p, newpage = FALSE))

doc <- read_pptx()
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")
doc <- ph_with(doc, my_vec_graph, location = ph_location_fullsize() )
print(doc, target = "survi2.pptx")