Carlos-Francisco Méndez-Cruz / automatic-extraction-growth-conditions

Go to a project
Toggle navigation Toggle navigation pinning
Estefani Gaytan Nunez
73f0e636 1 parent 39130f63

upload

Inline Side-by-side
Showing 4 changed files with 0 additions and 226 deletions
No preview for this file type
library(ggplot2)
# Run1
dfa <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=4),
Strategy=rep(c("OD", "Ph", "Technique", "Med", "Temp", "Vess", "Agit", "Phase", "Air", "Anti", "Strain", "Gtype", "Substrain", "Supp", "Gversion"),3),
Score=c(
1, 0.405, 0.577,
1, 1, 1,
0.88, 1, 0.936,
0.852, 0.912, 0.881,
0.818, 1, 0.9,
0, 0, 0,
0, 0, 0,
1, 0.947, 0.973,
0.92, 0.742, 0.821,
1, 0.444, 0.615,
1, 1, 1,
0.905, 0.811, 0.856,
0, 0, 0,
0.883, 0.669, 0.762,
0, 0, 0
))
# ECO-DEV-WITH-EFFECT-COMBINATION: Combination of strategies with effect in E. coli development dataset
dfa <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=4),
Strategy=rep(c("Dev", "Dev+Vrb", "Dev+Vrb+Att", "Dev+Vrb+Att+Aut"),3),
Score=c(0.78, 0.79, 0.81, 0.81, 0.41, 0.56, 0.63, 0.63, 0.53, 0.65, 0.71, 0.71))
head(dfa)
# Run1
dfa <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=15),
Strategy=rep(c("OD", "Ph", "Technique", "Med", "Temp", "Vess", "Agit", "Phase", "Air", "Anti", "Strain", "Gtype", "Substrain", "Supp", "Gversion"),3),
Score=c(
1, 1, 0.88, 0.852, 0.818, 0, 0, 1, 0.92, 1, 1, 0.905, 0, 0.883, 0,
0.405, 1, 1, 0.912, 1, 0, 0, 0.947, 0.742, 0.444, 1, 0.811, 0, 0.669, 0
0.577, 1, 0.936, 0.881, 0.9, 0, 0, 0.973, 0.821, 0.615, 1, 0.856, 0, 0.762, 0
))
# Run1
dfa <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=15),
Strategy=rep(c("OD", "Ph", "Technique", "Med", "Temp", "Vess", "Agit", "Phase", "Air", "Anti", "Strain", "Gtype", "Substrain", "Supp", "Gversion"),3),
Score=c(
1, 1, 0.88, 0.852, 0.818, 0, 0, 1, 0.92, 1, 1, 0.905, 0, 0.883, 0,
0.405, 1, 1, 0.912, 1, 0, 0, 0.947, 0.742, 0.444, 1, 0.811, 0, 0.669, 0,
0.577, 1, 0.936, 0.881, 0.9, 0, 0, 0.973, 0.821, 0.615, 1, 0.856, 0, 0.762, 0
))
head(dfa)
pa<-ggplot(dfa, 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="Combination of strategies with effect in E. coli development dataset",x="Combination of strategies", y = "Score")+
#labs(title="(a)",x="Combination of strategies", y = "Score")+
theme_classic()
pa
title_plot = "Salmonella evaluation dataset"
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=title_plot,x="Strategies", y = "Score")+
#theme_classic()+
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<-ggplot(dfa, 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="Combination of strategies with effect in E. coli development dataset",x="Combination of strategies", y = "Score")+
#labs(title="(a)",x="Combination of strategies", 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")
pa
pa<-ggplot(dfa, 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 best model (Run1)",x="Conditions", y = "Score")+
#labs(title="(a)",x="Combination of strategies", 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
# Run1
dfa <- data.frame(Measure=rep(c("Precision", "Recall", "F1-score"), each=15),
Strategy=rep(c(
"Agit",
"Gversion",
"Substrain",
"Vess",
"OD",
"Anti",
"Supp",
"Air",
"Gtype",
"Med",
"Temp",
"Technique",
"Phase",
"pH",
"Strain"
),3),
Score=c(
0,
0,
0,
0,
1,
1,
0.883,
0.92,
0.905,
0.852,
0.818,
0.88,
1,
1,
1,
0,
0,
0,
0,
0.405,
0.444,
0.669,
0.742,
0.811,
0.912,
1,
1,
0.947,
1,
1,
0,
0,
0,
0,
0.577,
0.615,
0.762,
0.821,
0.856,
0.881,
0.9,
0.936,
0.973,
1,
1
))
head(dfa)
pa<-ggplot(dfa, 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")+
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
pa<-ggplot(dfa, aes(x=Strategy, y=Score, group=Measure)) +
geom_line(aes(color=Measure, stat="identity"))+
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")+
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<-ggplot(dfa, aes(x=Strategy, y=Score, group=Measure)) +
geom_line(aes(color=Measure), stat="identity")+
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")+
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