使用annotate("文本")进行多行ROC

发布于07月02日

我创建了一个向ROC对象显示的曲线图，使用

rocobj <- pred1
rocobj1 <- pred2
ggroc(list(sc1 = rocobj, sc2 = rocobj1))

我想补充一下关于每条曲线的信息. 在此之前，我使用:

annotate("text",x=0.15,y=0.1,label=paste0("\nloss: ", out[[2]][1], "\naccuracy: ",out[[2]][2]), "AUC: ", out[[2]][3],)

如何使ANNOTATE命令适应带有多个ROC对象的绘图？

推荐答案

annotate()的label参数接受字符串标签的向量.你可以给它ROC曲线的AUC:

library(pROC)
roclist <- roc(outcome ~ ndka + wfns + s100b, data=aSAH)

library(ggplot2)
ggroc(roc.list) + annotate("text", 
    label=sprintf("AUC: %.2f", lapply(roclist, auc)), 
    x=0.5,
    y=c(0.5, 0.4, 0.3))

我不知道有人可以将 colored颜色映射到注释.要做到这一点，你需要直接使用aes_text().name列将用于着色，因此请确保它与ROC曲线相匹配:

# Build an annotation dataset with the "name" column
annot <- data.frame(
    label = sprintf("AUC: %.2f", lapply(roclist, auc)),
    x = 0.5,
    y = seq(from=0.5, along.with=roclist, by=-.1),
    name = names(roclist))
ggroc(roc.list) + geom_text(aes(x=x, y=y, label=label), data=annot)