Commit a3d6a487 by Carine Rey

### fix Mutinomial -> Multinomial in figure

parent 7cfa4b5b
Pipeline #17045 failed with stages
in 5 minutes and 43 seconds
 ... ... @@ -593,7 +593,7 @@ df_auc = do.call(rbind, lapply(split(df_out,paste0(df_out\$methode,df_out\$couple) })) df_auc = df_auc[order(df_auc\$couple),] condensed_meths = c("PCOC","Diffsel_mean","Identical_LG08","Mutinomial_1MinusLRT","Tdg09_1MinusLRT","Msd_1MinusP","Msd_0.05_1MinusP","Topological_LG08") condensed_meths = c("PCOC","Diffsel_max","Identical_LG08","Mutinomial_1MinusLRT","Tdg09_1MinusLRT","Msd_1MinusP","Msd_0.05_1MinusP","Topological_LG08") df_auc = subset(df_auc, methode %in% condensed_meths) df_auc\$auc_rank = unlist(tapply(df_auc\$auc,df_auc\$couple, function(x){rank(-x)})) df_auc\$auc2_rank = unlist(tapply(df_auc\$auc2,df_auc\$couple, function(x){rank(-x)})) ... ... @@ -756,8 +756,8 @@ plot_out = function(df_out, df_d , df_auc, df_recall_sup09_per_meth, meths = NUL tmp_df[dim(tmp_df)[1]+1,] = tmp_df[dim(tmp_df)[1],] tmp_df\$couple[dim(tmp_df)[1]] = "to_be_rm4" } from_m=c("PCOC","Mutinomial_1MinusLRT", "Msd_0.05_1MinusP", "Identical_LG08", "Tdg09_1MinusLRT","Topological_LG08","Diffsel_mean") to_m=c("PCOC","Mutinomial", "msd", "Identical", "TDG09","Topological","diffsel") from_m=c("PCOC","Mutinomial_1MinusLRT", "Msd_0.05_1MinusP", "Identical_LG08", "Tdg09_1MinusLRT","Topological_LG08","Diffsel_max") to_m=c("PCOC","Multinomial", "msd", "Identical", "TDG09","Topological","diffsel") tmp_df\$methode = mapvalues(tmp_df\$methode, from=from_m, to=to_m) tmp_df\$methode = factor(tmp_df\$methode, levels=to_m) ... ... @@ -821,20 +821,20 @@ plot_out = function(df_out, df_d , df_auc, df_recall_sup09_per_meth, meths = NUL couple_simuA = c("H0/HaPC NeG1","H0/HaPC NeG4","H0/HaPC NeG8") couple_simuB = c("H0/H0 NeG1/NeG1_NeC_4","H0/H0 NeG4/NeG4_NeC_8","H0/H0 NeG4/NeG4_NeC_1") couple_simuC = c("H0/HaPC NeG1","H0/HaPC NeG4_NeC_1","H0/HaPC NeG4","H0/HaPC NeG1_NeC_4","H0/HaPC NeG8", "H0/HaPC NeG4_NeC_8") couple_simuD = c("H0/HaPC NeG1","H0/HaPC NeG4","H0/HaPC NeG8", "H0 NeG1/HaPC NeG1_NeC_4","H0 NeG4/HaPC NeG4_NeC_8","H0 NeG4/HaPC NeG4_NeC_1") couple_simuC = c("H0/HaPC NeG4_NeC_1","H0/HaPC NeG4", "H0/HaPC NeG4_NeC_8") couple_simuD = c("H0/HaPC NeG4", "H0 NeG4/HaPC NeG4_NeC_8","H0 NeG4/HaPC NeG4_NeC_1") tmp_df\$group[tmp_df\$couple%in%couple_simuA] = "PC" tmp_df\$group[tmp_df\$couple%in%couple_simuA] = "1/ PC" tmp_df2 = tmp_df[tmp_df\$couple%in%couple_simuA,] if (all(couple_simuB%in%tmp_df\$couple)) { tmp_df\$group[tmp_df\$couple%in%couple_simuB] = "CCSE" tmp_df\$group[tmp_df\$couple%in%couple_simuB] = "2/ CCSE" tmp_df2 = rbind(tmp_df2,tmp_df[tmp_df\$couple%in%couple_simuB,]) } if (all(couple_simuC%in%tmp_df\$couple)) { tmp_df\$group[tmp_df\$couple%in%couple_simuC] = "PC & GWCSE" tmp_df\$group[tmp_df\$couple%in%couple_simuC] = "3/ PC & GWCSE" if (noA) { tmp_df2 = tmp_df[tmp_df\$couple%in%couple_simuC,] } else { ... ... @@ -842,7 +842,7 @@ plot_out = function(df_out, df_d , df_auc, df_recall_sup09_per_meth, meths = NUL } } if (all(couple_simuD%in%tmp_df\$couple)) { tmp_df\$group[tmp_df\$couple%in%couple_simuD] = "PC & CCSE" tmp_df\$group[tmp_df\$couple%in%couple_simuD] = "4/ PC & CCSE" tmp_df2 = rbind(tmp_df2,tmp_df[tmp_df\$couple%in%couple_simuD,]) } tmp_df = tmp_df2 ... ... @@ -856,8 +856,8 @@ plot_out = function(df_out, df_d , df_auc, df_recall_sup09_per_meth, meths = NUL tmp_df\$coupleX = mapvalues(tmp_df\$couple, from=from_c, to=to_c) tmp_df\$coupleX = factor(tmp_df\$coupleX, levels =c("NeS 1","NeSA 4\nNeSC 1","NeS 4","NeSA 1\nNeSC 4","NeS 8","NeSA 4\nNeSC 8")) from_m=c("PCOC","Mutinomial_1MinusLRT", "Msd_0.05_1MinusP", "Identical_LG08", "Tdg09_1MinusLRT","Topological_LG08","Diffsel_mean") to_m=c("PCOC","Mutinomial", "msd", "Identical", "TDG09","Topological","diffsel") from_m=c("PCOC","Mutinomial_1MinusLRT", "Msd_0.05_1MinusP", "Identical_LG08", "Tdg09_1MinusLRT","Topological_LG08","Diffsel_max") to_m=c("PCOC","Multinomial", "msd", "Identical", "TDG09","Topological","diffsel") tmp_df\$methode = mapvalues(tmp_df\$methode, from=from_m, to=to_m) tmp_df\$methode = factor(tmp_df\$methode, levels=to_m) ... ... @@ -899,8 +899,8 @@ plot_out = function(df_out, df_d , df_auc, df_recall_sup09_per_meth, meths = NUL tmp_df\$coupleX = mapvalues(tmp_df\$couple, from=from_c, to=to_c) tmp_df\$coupleX = factor(tmp_df\$coupleX, levels =unique(c(couple_plot1_to,couple_plot2_to,couple_plot4_to,couple_plot3_to))) from_m=c("PCOC","Mutinomial_1MinusLRT", "Msd_0.05_1MinusP", "Identical_LG08", "Tdg09_1MinusLRT","Topological_LG08","Diffsel_mean") to_m=c("PCOC","Mutinomial", "msd", "Identical", "TDG09","Topological","diffsel") from_m=c("PCOC","Mutinomial_1MinusLRT", "Msd_0.05_1MinusP", "Identical_LG08", "Tdg09_1MinusLRT","Topological_LG08","Diffsel_max") to_m=c("PCOC","Multinomial", "msd", "Identical", "TDG09","Topological","diffsel") tmp_df\$methode = mapvalues(tmp_df\$methode, from=from_m, to=to_m) tmp_df\$methode = factor(tmp_df\$methode, levels=to_m) ... ... @@ -979,7 +979,7 @@ plot_out = function(df_out, df_d , df_auc, df_recall_sup09_per_meth, meths = NUL labels = c("", "A", "B", "C"), ""), rel_heights = c(0.15, 0.6,0.75,0.75), ... ... @@ -1297,7 +1297,7 @@ plot_out = function(df_out, df_d , df_auc, df_recall_sup09_per_meth, meths = NUL plot_out(df_out, df_d, df_auc, df_recall_sup09_per_meth, suffix="") condensed_meths = c("PCOC","Diffsel_mean","Identical_LG08","Mutinomial_1MinusLRT","Tdg09_1MinusLRT","Msd_1MinusP","Msd_0.05_1MinusP","Topological_LG08") condensed_meths = c("PCOC","Diffsel_max","Identical_LG08","Mutinomial_1MinusLRT","Tdg09_1MinusLRT","Msd_1MinusP","Msd_0.05_1MinusP","Topological_LG08") plot_out(df_out, df_d, df_auc, df_recall_sup09_per_meth, meths=condensed_meths, suffix="_condensed") ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!