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

Question

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

模型中使用的数据框中的变量：

承认：因素有2个级别“未承认”，“承认”

身体质量指数：数字[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")

剧情：

样条图 - 单击此处查看

Answer 1

虽然最后一条评论是3年前发表的，现在有解决办法吗？

谢谢。