roc.list <- roc(nhom ~ CHR + HYPO, data = control_tmts)
pdf("control_tmts_ROC.pdf", width = 6.5, height = 5)
ggroc(roc.list, aes = "linetype", size = 1, legacy.axes = T) +
  annotate("text", x = 0.7, y = 0.15, size = 6,
           label = paste0("AUC CHr = ", round(tmts_chr$Youden$Global$measures.acc$AUC[1], 3))) +
  annotate("text", x = 0.74, y = 0.08, size = 6,
           label = paste0("AUC %Hypo = ", round(tmts_hypo$Youden$Global$measures.acc$AUC[1], 3))) +
  theme_minimal() +
  theme(text = element_text(size = 20)) +
  scale_linetype_discrete(name = "Marker", labels = c("CHr", "%Hypo")) +
  labs(x = "1 - Specificity", y = "Sensitivity")
dev.off()