Merge branch 'master' of http://pakal.ccg.unam.mx/cmendezc/automatic-extraction-growth-conditions

@@ -7,6 +7,7 @@ library(ggplot2)
 ######### BEST MODELS ##########
 
 # Run1
+# Todas las condiciones
 dfa <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=15),
                 Strategy=rep(c(
                   "Agit",
@@ -72,15 +73,142 @@ dfa <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=15),
                   1,
                   1
                 ))
-head(dfa)
 
-pa<-ggplot(dfa, aes(x=Strategy, y=Score, group=Measure)) +
+# Solo condiciones con F1-score > 0
+# Run 1
+df <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=11),
+                  Strategy=rep(c(
+                    "OD",
+                    "Anti",
+                    "Supp",
+                    "Air",
+                    "Gtype",
+                    "Med",
+                    "Temp",
+                    "Technique",
+                    "Phase",
+                    "pH",
+                    "Strain"
+                  ),3),
+                  Score=c(
+                    1,
+                    1,
+                    0.883,
+                    0.92,
+                    0.905,
+                    0.852,
+                    0.818,
+                    0.88,
+                    1,
+                    1,
+                    1,
+                    0.405,
+                    0.444,
+                    0.669,
+                    0.742,
+                    0.811,
+                    0.912,
+                    1,
+                    1,
+                    0.947,
+                    1,
+                    1,
+                    0.577,
+                    0.615,
+                    0.762,
+                    0.821,
+                    0.856,
+                    0.881,
+                    0.9,
+                    0.936,
+                    0.973,
+                    1,
+                    1
+                  ))
+
+head(df)
+
+pa<-ggplot(df, aes(x=Strategy, y=Score, group=Measure)) +
+  geom_line(aes(color=Measure))+
+  geom_point(aes(color=Measure))+
+  scale_color_manual(values=c("#999999", "#E69F00", "#56B4E9"))+
+  #scale_color_manual(values=c("#e6194b", "#3cb44b", "#0082c8"))+
+  #geom_text(aes(label = Score))+
+  labs(title="Scores by condition (Best model, Run1)",x="Condition", y = "Score")+
+  theme(
+    legend.position="top",
+    # Centrar título: plot.title = element_text(hjust = 0.5),
+    axis.line = element_line(colour = "gray"),
+    panel.background = element_blank(),
+    panel.grid.major = element_blank(),
+    panel.grid.minor = element_blank(),
+    panel.border = element_blank()
+  )
+pa
+
+ggsave(".png")
+
+# Solo condiciones con F1-score > 0
+# Run 7
+df <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=11),
+                 Strategy=rep(c(
+                   "Anti",
+                   "OD",
+                   "Supp",
+                   "Air",
+                   "Gtype",
+                   "Temp",
+                   "Med",
+                   "Technique",
+                   "Phase",
+                   "pH",
+                   "Strain"
+                 ),3),
+                 Score=c(
+                   0.571,
+                   1,
+                   0.886,
+                   0.939,
+                   0.876,
+                   0.818,
+                   0.897,
+                   0.952,
+                   1,
+                   1,
+                   1,
+                   0.444,
+                   0.405,
+                   0.684,
+                   0.742,
+                   0.802,
+                   1,
+                   0.912,
+                   0.909,
+                   0.947,
+                   1,
+                   1,
+                   0.5,
+                   0.577,
+                   0.772,
+                   0.829,
+                   0.837,
+                   0.9,
+                   0.904,
+                   0.93,
+                   0.973,
+                   1,
+                   1
+                 ))
+
+head(df)
+
+pa<-ggplot(df, aes(x=Strategy, y=Score, group=Measure)) +
   geom_line(aes(color=Measure))+
   geom_point(aes(color=Measure))+
   scale_color_manual(values=c("#999999", "#E69F00", "#56B4E9"))+
   #scale_color_manual(values=c("#e6194b", "#3cb44b", "#0082c8"))+
-  geom_text(aes(label = Score))+
-  labs(title="Prediction of the best model (Run1)",x="Conditions", y = "Score")+
+  #geom_text(aes(label = Score))+
+  labs(title="Scores by condition (Best model, Run7)",x="Condition", y = "Score")+
   theme(
     legend.position="top",
     # Centrar título: plot.title = element_text(hjust = 0.5),

+# Based on http://www.sthda.com/english/wiki/ggplot2-line-plot-quick-start-guide-r-software-and-data-visualization
+
+library(ggplot2)
+#library(ggpubr)
+#library(cowplot)
+
+######### BEST MODEL ##########
+
+# Solo condiciones con F1-score > 0
+# Run 6 (report_Run6_v11.txt)
+df <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=11),
+                  Strategy=rep(c(
+                    "Air", 
+                    "Anti", 
+                    "Gtype", 
+                    "Med", 
+                    "OD", 
+                    "pH", 
+                    "Phase", 
+                    "Supp", 
+                    "Technique", 
+                    "Temp", 
+                    "Vess"
+                  ),3),
+                  Score=c(
+                    0.565,
+                    1,
+                    0.889,
+                    1,
+                    1,
+                    1,
+                    0.882,
+                    0.811,
+                    1,
+                    0.923,
+                    1,
+                    0.377,
+                    1,
+                    0.847,
+                    0.943,
+                    0.818,
+                    1,
+                    1,
+                    0.799,
+                    0.913,
+                    0.828,
+                    1,
+                    0.452,
+                    1,
+                    0.867,
+                    0.971,
+                    0.9,
+                    1,
+                    0.938,
+                    0.805,
+                    0.955,
+                    0.873,
+                    1
+                  ))
+
+head(df)
+
+pa<-ggplot(df, aes(x=Strategy, y=Score, group=Measure)) +
+  geom_line(aes(color=Measure))+
+  geom_point(aes(color=Measure))+
+  scale_color_manual(values=c("#999999", "#E69F00", "#56B4E9"))+
+  #scale_color_manual(values=c("#e6194b", "#3cb44b", "#0082c8"))+
+  #geom_text(aes(label = Score))+
+  labs(title="Scores by condition (Best model, Run1)",x="Condition", y = "Score")+
+  theme(
+    legend.position="top",
+    # Centrar título: plot.title = element_text(hjust = 0.5),
+    axis.line = element_line(colour = "gray"),
+    panel.background = element_blank(),
+    panel.grid.major = element_blank(),
+    panel.grid.minor = element_blank(),
+    panel.border = element_blank()
+  )
+pa
+
+ggsave(".png")
+