如何从 ggplot predict 的结果中获取 1 个面板答案

【问题标题】：how to take 1 panel from the results from ggplot predict如何从 ggplot predict 的结果中获取 1 个面板
【发布时间】：2021-09-17 02:53:57
【问题描述】：

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

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")

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

包含 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)

谢谢！

【问题讨论】：

标签： r ggplot2 predict

【解决方案1】：

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

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

【讨论】：