啊啊啊啊啊吖

2018-10-18   阅读量: 2095

数据分析师 R语言 可视化

R实现Nomogram图的笔记整理

扫码加入数据分析学习群

Nomogram,中文常称为诺莫图或者列线图,简单的说是将Logistic回归或Cox回归的结果进行可视化呈现。它根据所有自变量回归系数的大小来制定评分标准,给每个自变量的每种取值水平一个评分,对每个患者,就可计算得到一个总分,再通过得分与结局发生概率之间的转换函数来计算每个患者的结局时间发生的概率。

## 绘制nomogram图

## 第一步 读取rms程序包及辅助程序包

library(Hmisc); library(grid); library(lattice);library(Formula); library(ggplot2)

library(rms)



## 第二步 读取数据,以survival程序包的lung数据来进行演示

## 列举survival程序包中的数据集

library(survival)

data(package = "survival")



## 读取lung数据集

data(lung)



## 显示lung数据集的前6行结果

head(lung)



## 显示lung数据集的变量说明

help(lung)



## 添加变量标签以便后续说明

lung$sex <-

  factor(lung$sex,

         levels = c(1,2),

         labels = c("male", "female"))



## 第三步 按照nomogram要求“打包”数据,绘制nomogram的关键步骤,??datadist查看详细说明

dd=datadist(lung)

options(datadist="dd")



## 第四步 构建模型

## 构建logisitc回归模型

f1 <- lrm(status~ age + sex, data = lung)



## 绘制logisitc回归的风险预测值的nomogram图

nom <- nomogram(f1, fun= function(x)1/(1+exp(-x)), # or fun=plogis

                lp=F, funlabel="Risk")

plot(nom)





## 构建COX比例风险模型

f2 <- psm(Surv(time,status) ~ age+sex, data =  lung, dist='lognormal')

med <- Quantile(f2) # 计算中位生存时间

surv <- Survival(f2) # 构建生存概率函数



## 绘制COX回归中位生存时间的Nomogram图

nom <- nomogram(f2, fun=function(x) med(lp=x),

         funlabel="Median Survival Time")

plot(nom)



## 绘制COX回归生存概率的Nomogram图

## 注意lung数据的time是以”天“为单位

nom <- nomogram(f2, fun=list(function(x) surv(365, x),

                             function(x) surv(730, x)),

                funlabel=c("1-year Survival Probability",

                           "2-year Survival Probability"))

plot(nom, xfrac=.6)



## 评价COX回归的预测效果

## 第一步 计算c-index

rcorrcens(Surv(time,status) ~ predict(f2), data =  lung)



## 第二步 绘制校正曲线

## 参数说明:

## 1、绘制校正曲线前需要在模型函数中添加参数x=T, y=T,详细参考帮助

## 2、u需要与之前模型中定义好的time.inc一致,即365或730;

## 3、m要根据样本量来确定,由于标准曲线一般将所有样本分为3组(在图中显示3个点)

## 而m代表每组的样本量数,因此m*3应该等于或近似等于样本量;

## 4、b代表最大再抽样的样本量



## 重新调整模型函数f2,也即添加x=T, y=T

f2 <- psm(Surv(time,status) ~ age+sex, data =  lung, x=T, y=T, dist='lognormal')

## 构建校正曲线

cal1 <- calibrate(f2, cmethod='KM', method="boot", u=365, m=76, B=228)



## 绘制校正曲线,??rms::calibrate查看详细参数说明

par(mar=c(8,5,3,2),cex = 1.0)

plot(cal1,lwd=2,lty=1,

     errbar.col=c(rgb(0,118,192,maxColorValue=255)),

     xlim=c(0.25,0.6),ylim=c(0.15,0.70),

     xlab="Nomogram-Predicted Probability of 1-Year DFS",

     ylab="Actual 1-Year DFS (proportion)",

     col=c(rgb(192,98,83,maxColorValue=255)))



## rms::nomogram的完整示例详见rms程序包的帮助文件

## rms程序包的帮助文件下载网址:https://cran.r-project.org/web/packages/rms/rms.pdf
0.0052 1 1 关注作者 收藏

评论(0)


暂无数据

推荐课程

推荐帖子