rm absent meths to get plot A'

lib/scripts/calc_t_per_meth.R

@@ -296,10 +296,10 @@ plot_out = function(df_out, df_d , df_recall_sup09_per_meth, meths = NULL, suffi
     colors2 = c("#984EA3","#4AA947","#377EB8","#E41A1C","#F5BE5B","#90EE90","#8B6914","#7F7F7F","#ADD8E6")
 
     if (! is.null(meths)) {
-
     df_out = df_out[df_out$methode %in%meths,]
     df_d   = df_d[df_d$methode %in%meths,]
     df_recall_sup09_per_meth = df_recall_sup09_per_meth[df_recall_sup09_per_meth$methode %in%meths,]
+    meths = meths[meths %in% df_out$methode]
     } else {
     meths = sort(unique(df_out$methode))
     }