p <-
dca(cancer ~ cancerpredmarker, data = df_binary) %>%
plot(smooth = TRUE, show_ggplot_code = TRUE)
p
# change the line colors
p + ggplot2::scale_color_manual(values = c('black', 'grey', 'purple'))
Run the code above in your browser using DataLab