ggplot でトレーニングし、R 関数を記述するスキルを向上させるために、あらゆる種類のエクストラを使用して、生存プロットを生成する一連の関数を作成することにしました。基本的なサバイバル プロット用の適切な機能を構築することができました。私がやりたいことの 1 つは、生存プロットの上に、特定の時点で危険にさらされている数の面積プロットを積み重ねるオプションです。ggplotのオプションと同じようにしたいのfacet_gridですが、この関数ではうまくいきませんでした。でできるように、2 つのプロットをバインドしたくはありませんgrid.arrangeが、同じ x 軸を持ちます。
次のコードは、2 つの (簡略化された) プロットを生成します。これらを重ねて表示します。でこれをやろうとしましたfacet_gridが、解決策はこれにあるとは思いません
library(survival)
library(ggplot2)
data(lung)
s <- survfit(Surv(time, status) ~ 1, data = lung)
dat <- data.frame(time = c(0, s$time),
surv = c(1, s$surv),
nr = c(s$n, s$n.risk))
pl1 <- ggplot(dat, aes(time, surv)) + geom_step()
pl2 <- ggplot(dat, aes(time, nr)) + geom_area()
