steelblue/orange in cls2 predictor selection irrelevant plot

Author: trevorcampbell

source/classification2.Rmd

@@ -1436,7 +1436,7 @@ res_tmp <- res %>% pivot_longer(cols=c("accs", "fixedaccs"),
 plt_irrelevant_nghbrs <- ggplot(res_tmp) +
               geom_line(mapping = aes(x=ks, y=accuracy, color=Type)) +
               labs(x = "Number of Irrelevant Predictors", y = "Accuracy") +
-              scale_color_discrete(labels= c("Tuned K", "K = 3")) +
+              scale_color_manual(labels= c("Tuned K", "K = 3"), values = c("darkorange", "steelblue")) +
   theme(text = element_text(size = 17), axis.title=element_text(size=17))
 
 plt_irrelevant_nghbrs