improve PR plot

lib/scripts/calc_t_per_meth.R

@@ -325,7 +325,7 @@ plot_out = function(df_out, df_d , df_recall_sup09_per_meth, meths = NULL, suffi
     plot = plot + guides(fill=FALSE) + guides(col=FALSE)
     plot = plot + scale_color_manual(values=colors)
     plot = plot + geom_point(size=0.5, alpha=alpha)
-    plot = plot + geom_line()
+    plot = plot + geom_step(direction="vh")
     plot = plot + geom_hline( aes(yintercept = 0.9), col="black" ,  size = 1, show.legend = NA,linetype="dashed")
     plot = plot + facet_grid(couple ~ methode)
     plot = plot + theme(axis.text.x = element_text(angle = 45, hjust = 1))