R语言广义线性模型Logistic回归模型列线图分析（nomogram）

R语言广义线性模型Logistic回归模型列线图分析（nomogram）

我们来看图说话：

gist是一种胃肠道间质瘤，作者构建了无复发生存率的logistic回归模型。

并构建了如下的列线图或者nomogram

现在假设新来了以为患者：我们知道的信息如下，size为5，Mltotic index 为最右侧值、site为最左侧值；

好了开始查表，就是查nomogram图。

那么如果size对应的是5，那么他对应的分数就是30，MItotic index为最右侧值，则对应的分数为80分，而site对应的是最左侧、则它对应的得分为0分；

那么他们的家和就是：30+80+0=110, 

我们获得了总分，而总分就是total points中的一个点，那么通过total points 和它下方了两个概率的关系我们就获得2年和5年的胃肠道间质瘤无复发生存率。

#Logistic回归案例 5 低出生体重儿列线图
library(foreign) 
library(rms)

mydata<-read.spss("lweight.sav")
mydata<-as.data.frame(mydata)
head(mydata)

mydata$low <- ifelse(mydata$low =="低出生体重",1,0)
mydata$race1 <- ife