將plottile（cph，rms）中的分位數和連續模型組合在一起？

Question

我想連續和分位數模型在同一小區聯合收割機進行比較和對比兩種方法（xtile是返回位數爲因素的函數）：

q.s <- cph(inc ~ rcs(exposure,3), data=data) 

q.q <- cph(inc ~ xtile(exposure,3), data=data) 

p.s <- Predict(q.s, exposure, fun=exp) 

p.q <- Predict(q.q, exposure, fun=exp) 

ggplot.Predict給出了兩種模式的一個很好的情節 - 但我想結合兩者。這可能嗎？

我已經添加了一個示例 - 我希望可以說明我想要生成的示例。

enter image description here

Answer 1

試試這個地方plot1/2是你的位數和連續圖（可以改變高度，寬度，列數，行數）：

p1 <- ggplot.Predict(..plot1 options here...) 
p2 <- ggplot.Predict(..plot2 options here...) 

library(gridExtra) 
grid.arrange(p1, p2, 
     ncol=2, nrow=1, widths=c(2,2), heights=c(2)) 

欲瞭解更多信息，請查看gridExtra包。