R语言计算列线图评分代码

R语言计算列线图评分的代码如下：

library(openxlsx)
library(survival)
library(lattice)
library(Formula)
library(ggplot2)

## 加载数据
library(readr)
data <- read_csv("./data4.csv")
data <- na.omit(data)

## 数据打包
library(rms)
ddDD <- datadist(data)
options(datadist="ddDD")

fit <- lrm(label~C5+C6+C25+C48, data=data)

nom1 <- nomogram(fit, fun=function(x)1/(1+exp(-x)), lp=FALSE, fun.at=c(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9), funlabel="Risk")