Commit a3d6a487 authored by Carine Rey's avatar Carine Rey
Browse files

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!
Please register or to comment