临床研究R语言:列线图(Nomogram)绘制答:model <- glm(formula, data = data, family = binomial(link = "logit"))predvalue <- predict(model, type = "response", data = data)ROC <- roc(data$Infection, predvalue)ci(auc(ROC))pdf("roc.pdf", 8, 8)plot(ROC, print.auc = TRUE, auc.polygon = T, lwd = 3, max....