准备用几次推送与大家一起系统的学习下Nomogrm的绘制原理及其在R软件和SAS软件中的实现。首先声明，文章只是自己文献上的整理及自己的一点点理解，错误之处还请大家指出！在wikipedia 里对Nomogram的介绍是，Nomogram—词来源于希腊语，Nomos指“法律”而Gramma意思是“书写”。Nomogram的理论是由法国工程师 Philbert Maurice d’Ocagne (1862-1938) 于1884年提出，最早用于工程学，它能够将复杂的工程力学等计算公式以图形的方式，快速、直观、精确的展现出来。换句话说，绘制Nomogram旨在以绘图的方法来阐述不同变量之间的关系。在医学领域，Nomogram优势在于可个性化的计算特定肿瘤患者生存率, 因此在临床实践中有很大的价值。Nomogram 怎么用？我们用个例子来说明Nomogram的用法，临床上用四个指标A,B,C,D来预测某疾病的发病率，其中A和B是连续性变量，C和D为二分类变量；A的取值范围在0-80之间，B的取值范围在0-10之间，C取值为Low和High，和D取值为Neg和Pos，在统计软件中建立回归模型，并绘制Nomogram，具体绘制出的图形如下：图1.Nomogram 示意图假设有一个病人，他的四个因素的值分别是:A=40, B=5,C=Low和D=Pos，Nomogrm的用法是在A变量的刻度尺上找到其值为40的刻度，然后垂直画条竖线，对应到最上方的Points刻度尺上，找到Points对应的分值。我们看到图中A为40时，其Points是50，同理B=5时其Points是40，C=Low时其Points值是0，D=Pos时其Points值是19.将这四个因素的Points值加起来总共是109分;下一步在图下方的Total Points刻度尺上找到109，向下方的Probability of Clin.Outcome做垂线，109对应的值是39，则此病人该种疾病得发病风险预测概率值是39%。Nomogram 绘制原理一般的回归模型都可以绘制其对应的Nomogram，本文以二分类的Logistic 回归为例。例：为探讨某些危险因素对某种疾病的发病影响，统计建模筛选出的结果显示年龄（10-90），性别（男女）和血压（低，正常，高）是三个影响因素，利用这三个因素与二分类的结局变量做Logistic回归,回归结果见下表：1. 对每个自变量（因素）赋分一般情况下，绘制Nomogram时要求每个因素的赋分范围在0-100之间。Nomogram绘制实际上是对上述回归结果的系数做转化后以图形的形式展现出来，即主要是对回归模型拟合系数的转化。（1）系数转换对于连续性变量年龄，其范围是10-90，结合表1中估计的各因素的系数，Nomogram的转换公式是：（2）根据转换结果赋分绘制Nomogram的最核心点是哪个变量对预测结果影响最大，然后以影响最大的指标为基础（即Nomogram的第一条刻度线），第二影响大的指标以第一影响大的指标为基础，按照一定的公式转换成比例，第三影响大的指标同样以第一大的指标为基础，做一定的转换。换句话说，Nomogram的每个指标的标尺，是以影响最大的指标为参考做出来的。本例中，按照转换的系数值大小排序及赋分结果见表2。上面步骤即完成了最基本的每个因素的赋分过程，即每个因素刻度尺的确定及刻度尺所对应的Points的值。.用百度搜索R软件，在首页找到The R Project for Statistic Computing英文网站，这是R的官网，点击进入2.在首页第一部分Getting Started的第一段找到download R ,蓝色字体突出显示的，很容易看到点击download R3.这时你会看到很多国家名字和对应的地址，向下滚动页面，找到China，网站提供了5个链接地址，任意点击一个进入4.这是网站询问要下载的R对应的系统类型，大多数人都是WINDOWS点击Dowload R for Windows如果你是Linux或者是OS X的话，只要点对应的选项就可以了5.又要做选择题了，选择Base6.点击下面的地址类似小编图中红框标注的地方点击“开始下载“在这里小编使用的是浏览器自带的下载器，也可以使用其他下载工具，大小62.4MB，稍等片刻，就可以完成下载了。7.下载下来以后，双击打开安装文件，你首先看到语言的选择，我们选择简体中文8.下面就简单了，点击下一步9.选择你需要安装的组件，通常四个都安装最好，以后不会因为少装了而去重新安装。如果你电脑是32位，你就不要装63位，如果电脑是64位，你随便装哪个，我装了两个，都会用到。 10.选择no（接受默认选择），点击下一步11.在开始菜单中设置一个文件夹存饭R的快捷方式，点击下一步12.到这里就基本上完成了安装13.安装完成以后，界面是这样的：R在运行代码前，先要安装一个包（package），这个在R主页上有，是大家恭喜出来的，诸如做Nomogram是rms包在百度里搜索rms点击进去你会发现这里面有rms包的详细介绍，包括包的作者信息，用途，全名，包的指导手册（Reference manual），包文件等等都可以下载。一般新按照的包，大家要看下它的指导手册，包的PDF指导手册可以下载，点开之后里面有包的详细介绍，包括包中函数的用法，例子等等，非常详细。下一步，编写程序，首先打开R里面任务栏里面的File选择，New script会出现编写代码的对话框：我们要安装rms包，代码是：install.packages("rms")输入代码后，在代码行点击右键选择Run或者ctrl+R就会运行代码，同样它会提醒选择镜像选择中国就可以了，之后会自动安装。（二）、Nomgram的R语言实现代码
上面简要介绍了R软件的下载、安装及包的在线安装。下面我们回归正题，R语言中如何实现Nomogram？
首先什么是Nomogram？在本公众号前期的一篇文章中详细讲过（文章名”Nomogram 绘制原理及R&SAS实现（一）“），简单的说这是一种将Logistic回归或Cox回归图形化呈现的方法，可以让读者从图中很简便地根据预测变量的值得到因变量的大致概率数值。其对于Logistic回归或Cox回归的意义，大概相当于散点图对于简单线性回归的意义。
下面简单说下Nomogram怎么看。如下图。欲知年龄50岁的女性（sex=1）的患病风险，只需要将age=45岁向points轴投射，则points=50；同理sex=1时，points≈37。两者相加则Total points=87；将此数值在Total points轴上向Risk概率轴投射，则可知风险大概在0.4和0.5之间。（参见图中红线）对于单个变量，只需要令Total points = points进行投射即可。
接下来讲如何用R语言做出上面的这张图。简单起见，此帖仅讨论Logistic回归，Cox回归的方法类似，但相对更复杂。本帖所用数据引用自上海交大出版《医学统计学及SAS应用（修订版）》的例11.4require(rms)
##调用rms包# 建立数据集 y = c(0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1) age = c(28, 42, 46, 45, 34, 44, 48, 45, 38, 45, 49, 45, 41, 46, 49, 46, 44, 48, 52, 48, 45, 50, 53, 57, 46, 52, 54, 57, 47, 52, 55, 59, 50, 54, 57, 60, 51, 55, 46, 63, 51, 59, 48, 35, 53, 59, 57, 37, 55, 32, 60, 43, 59, 37, 30, 47, 60, 38, 34, 48, 32, 38, 36, 49, 33, 42, 38, 58, 35, 43, 39, 59, 39, 43, 42, 60, 40, 44) sex = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1) ECG = c(0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 2, 1, 0, 0, 2, 2, 0, 0, 2, 2, 0, 1, 2, 2, 0, 1, 0, 2, 0, 1, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 1, 1, 0, 2, 1, 1) # 设定nomogram的参数 ddist <- datadist(age, sex, ECG) options(datadist='ddist') # logistic回归 f <- lrm(y ~ age + sex + ECG) # nomogram nom <- nomogram(f, fun=plogis, fun.at=c(.001, .01, .05, seq(.1,.9, by=.1), .95, .99, .999), lp=F, funlabel="Risk") plot(nom)
有朋友问到Cox回归的代码怎么写。Cox回归模型会复杂一些，因为可能涉及到不同时间点（3年、5年）生存概率的计算。下面讨论最简单的概率轴为中位生存时间的情况。require(rms) require(Hmisc)
##需要下载安装require(survival)
##R默认自带的用于做生存分析的包# 建立数据集（使用rms包example的代码，未改动）n <- 1000set.seed(731)age <- 50 + 12*rnorm(n)label(age) <- "Age"sex <- factor(sample(c('Male','Female'), n,rep=TRUE, prob=c(.6, .4)))cens <- 15*runif(n)h <- .02*exp(.04*(age-50)+.8*(sex=='Female'))dt <- -log(runif(n))/hlabel(dt) <- 'Follow-up Time'e <- ifelse(dt <= cens,1,0)dt <- pmin(dt, cens)units(dt) <- "Year"# 设定nomogram的参数ddist <- datadist(age, sex)options(datadist='ddist')# Cox回归S <- Surv(dt,e)f <- cph(S ~ rcs(age,4) + sex, x=T, y=T) med <- Quantile(f) # nomogramnom <- nomogram(f, fun=function(x) med(x),fun.at=c(13,12,11,9,8,7,6,5),lp=F, funlabel="Median Survival Time")plot(nom) ##绘制Nomgram图以上是R语言实现Nomgram的程序，如需要计算C-index,参加本公众号历史文章，里面有C-index的具体原理及代码。版权声明：本公众号的内容部分来自互联网，转载请注明原文链接和作者，如有侵权或出处有误请联系我们。 官方邮箱：survival_analysis@126.com官方微信：生存分析(survival-analysis)本公众号精彩历史文章：04：如何在R软件中求一致性指数( Harrell'concordance index:C-index)？ 05：Nomogram 绘制原理及R&SAS实现.06
: Lasso方法简要介绍及其在回归分析中的应用07
: 最优模型选择中的交叉验证（Cross validation）方法08
: 用R语言进行分位数回归(Quantile Regression)09
: 样本数据中异常值（Outliers）检测方法及SPSS & R实现10
: 原始数据中几类缺失值（Missing Data）的SPSS及R处理方法11
:
[Survival analysis] Kaplan-Meier法之SPSS实现 12
:
[Survival analysis] COX比例风险回归模型在SPSS中的实现13
:
用R绘制地图：以疾病流行趋势为例14
:
数据挖掘方法：聚类分析简要介绍 及SPSS&R实现15
:
医学研究中的Logistic回归分析及R实现16
:
常用的非参数检验(Nonparametric Tests)总结17
:
高中生都能看懂的最小二乘法原理18
:
R语言中可实现的常用统计假设检验总结（侧重时间序列）19
:
如何根据样本例数、均数、标准差进行T-Test和ANOVA20
:
统计学中自由度的理解和应用21
:
ROC和AUC介绍以及如何计算AUC22
:
支持向量机SVM介绍及R实现23
:
SPSS如何做主成分分析?24
:
Bootstrap再抽样方法简介回复文章前代码数字如“04”即可查看或直接查看历史文章。公众号：survival-analysis 邮箱：survival_analysis@126.com 欢迎关注！