R中逻辑回归模型的受限三次样条图

问题描述

在使用 Predict() 函数绘制具有受限三次样条的逻辑回归时,我无法让 Y 轴显示正确的优势比值。这些值似乎很低,并没有反映我之前对同一数据集所做的其他分析。所以我只是想知道我在下面显示代码中做了什么。我不确定如何在线生成一个工作示例,因为它是我正在处理的相当大的数据框。有人可以帮忙吗?

模型中使用的数据帧中的变量:

已录取:包含 2 个级别“未录取”、“已录取”的因素

body_mass_index: num [1:7630] 21.5 24.4 26.4 41.8 27.7 ...

代码

library(Hmisc)
library(survival)
library(rms)
library(ggplot2)

ddist <- datadist(df)
options(datadist='ddist')

model <- lrm(admitted ~ rcs(body_mass_index,4),data=df)

ggplot(Predict(model,fun=exp),ylab="Odds ratio")

剧情:

Spline plot - click here to view

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)