如何从ggplot预测的结果中提取1个面板

Question

我使用多变量和单变量回归模型来探讨变量之间的关系。

model<- lrm(mortality ~value_day0 + value_day5, dataframe, x=TRUE, y=TRUE)
uni_model<-lrm(mortality ~value_day0, dataframe, x=TRUE, y=TRUE)

然后想象：

plot_model<- ggplot(Predict(model, fun=plogis), sepdiscrete="vertical", ylab="risk of mortality")
plot_uni_model<-ggplot(Predict(uni_model, fun=plogis),
                       ylab= "Risk of mortality", ylim=c(0,1), sepdiscrete="vertical")

这给了我两个图:图1有两个子图/子面板，一个表示日0值，一个表示第5天值，另一个图(图2)只有一个面板。我想以一种不同的方式显示结果:从图1中，我想将1个子面板(第0天)与图2结合起来。预期结果：

具有两个面板的

• 图:第0天来自多元分析，第0天来自单变量分析，
• 图有1个面板:第5天来自多变量分析

一些样本数据

dataframe<-data.frame(mortality=rep(c(0,1), each=500), value_day0=sample(1:5, 1000, replace=TRUE), value_day5=sample(1:5, 1000, replace=TRUE))

ddist <- datadist(value_day0, value_day5, mortality)
options(datadist='ddist')
detach(dataframe)

谢谢!

Answer 1

所以过了几个小时，我找到了一个可行的解决方案，以防有人需要它：

删除为第0天创建图形的行和列，因此只创建值0图model$data<-model$data[-c(501:1000), -c(2)]