R ggsurvplotの固定比率

Question

最後のプロットを提出する準備をしていますが、最後のものを正しいものにすることはできません。私がしたいことは、プロットを正方形にし、リスクテーブルをそれに従うことです。

私はこのコード ggsurvplot(survfit(Surv(time,event) ~ "(hidden)"), risk.table = T, legend.labs = c("(hidden)","(hidden)"), pval = T, xlab = "Days", ylab= "Cum Survival", xlim = c(0,1000), break.x.by = c(200), surv.plot.height = 2,ggtheme = theme(aspect.ratio = 1))を私の生存プロットに使用しています。

しかし、getは正方形のプロットだけでなく、正方形のリスクテーブルです。コードを作成する方法に関するアイデアはリスクテーブルには適用されませんか？

よろしくお願いいたし

Answer 1

つggsurvplotへの呼び出しでtables.themeを指定することができる厄介なアスペクト比を固定します。例：

library(survminer) 
library(survival) 

ggsurvplot(survfit(Surv(time, status)~ sex, data = lung), risk.table = T, 
      legend.labs = c("M" ,"F"), 
      pval = T, 
      xlab = "Days", 
      ylab= "Cum Survival", 
      xlim = c(0,1000), 
      break.x.by = c(200), 
      surv.plot.height = 2, 
      ggtheme = theme(aspect.ratio = 1), 
      tables.theme = theme(aspect.ratio = 0.2))