Commit 908aed89 authored by Carine Rey's avatar Carine Rey
Browse files

new plots

parent 3062eefd
......@@ -26,6 +26,8 @@ option_list = list(
make_option(c("--H0_NeG5_NeC_div2_res" ) , type="character", default=NA, help="merged_results H0_NeG5_NeC_div2_res" , metavar="character"),
make_option(c("--H0_NeG5_NeC_x2_res" ) , type="character", default=NA, help="merged_results H0_NeG5_NeC_x2_res" , metavar="character"),
make_option(c("--HaPCOC" ) , type="character", default=NA, help="merged_results HaPCOC" , metavar="character"),
make_option(c("--tree_prefix" ) , type="character", default="", help="tree_prefix" , metavar="character"),
make_option(c("-o","--out"), type="character", default="out",
......@@ -334,7 +336,7 @@ plot_out = function(df_out, df_d , df_recall_sup09_per_meth, meths = NULL, suffi
plot = plot + geom_hline( aes(yintercept = 0.9), col="black" , size = 0.5, show.legend = NA,linetype="dashed")
plot = plot + facet_grid(couple ~ methode)
plot = plot + theme(axis.text.x = element_text(angle = 45, hjust = 1))
plot = plot + ggtitle(paste0("Threshold definition such as precision > 0.9 - (", date , ")" ))
plot = plot + ggtitle(paste0("Tree: ", opt$tree_prefix , "\n Date: " , date ))
plot_recall_precision = plot
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment