en <- ggplot(data=en_pivot, aes(x=iteration, y=score, group=algorithm, colour=algorithm)) +
  geom_line(size=0.8, aes(color=algorithm)) +
  geom_point(size=0.8, color="black") +
  theme_classic() +
  theme(legend.position="right") +
  scale_color_manual(values=c("grey", "black", "royalblue2", "springgreen4")) +
  labs(x = "Iteration step",
       y = "BDI Accuracy",
       color = "Algorithm",
       title = "English") +
  ylim(68, 75) +
  theme(plot.title = element_text(hjust = 0.5))

################################################################################################

es_pivot <- subset(d, pivot=="es",
                  select = c(score,iteration,algorithm))

es_pivot$iteration <- factor(es_pivot$iteration,
                             levels = c("base", "de", "fr", "it", "pt", "en", "es"))

es <- ggplot(data=es_pivot, aes(x=iteration, y=score, group=algorithm, colour=algorithm)) +
  geom_line(size=0.8, aes(color=algorithm)) +
  geom_point(size=0.8, color="black") +
  theme_classic() +
  theme(legend.position="right") +
  scale_color_manual(values=c("grey", "black", "royalblue2", "springgreen4")) +
  labs(x = "Iteration step",
       y = "BDI Accuracy",
       color = "Algorithm",
       title = "Spanish") +
  ylim(68, 75) +
  theme(plot.title = element_text(hjust = 0.5))

################################################################################################

de_pivot <- subset(d, pivot=="de",
                   select = c(score,iteration,algorithm))

de_pivot$iteration <- factor(de_pivot$iteration,
                             levels = c("base", "fr", "it", "pt", "en", "es", "de"))

de <- ggplot(data=de_pivot, aes(x=iteration, y=score, group=algorithm, colour=algorithm)) +
  geom_line(size=0.8, aes(color=algorithm)) +
  geom_point(size=0.8, color="black") +
  theme_classic() +
  theme(legend.position="right") +
  scale_color_manual(values=c("grey", "black", "royalblue2", "springgreen4")) +
  labs(x = "Iteration step",
       y = "BDI Accuracy",
       color = "Algorithm",
       title = "German") +
  ylim(68, 75) +
  theme(plot.title = element_text(hjust = 0.5))

################################################################################################

fr_pivot <- subset(d, pivot=="fr",
                   select = c(score,iteration,algorithm))

fr_pivot$iteration <- factor(fr_pivot$iteration,
                             levels = c("base", "it", "pt", "en", "es", "de", "fr"))

fr <- ggplot(data=fr_pivot, aes(x=iteration, y=score, group=algorithm, colour=algorithm)) +
  geom_line(size=0.8, aes(color=algorithm)) +
  geom_point(size=0.8, color="black") +
  theme_classic() +
  theme(legend.position="right") +
  scale_color_manual(values=c("grey", "black", "royalblue2", "springgreen4")) +
  labs(x = "Iteration step",
       y = "BDI Accuracy",
       color = "Algorithm",
       title = "French") +
  ylim(68, 75) +
  theme(plot.title = element_text(hjust = 0.5))


################################################################################################

it_pivot <- subset(d, pivot=="it",
                   select = c(score,iteration,algorithm))

it_pivot$iteration <- factor(it_pivot$iteration,
                             levels = c("base", "pt", "en", "es", "de", "fr", "it"))

it <- ggplot(data=it_pivot, aes(x=iteration, y=score, group=algorithm, colour=algorithm)) +
  geom_line(size=0.8, aes(color=algorithm)) +
  geom_point(size=0.8, color="black") +
  theme_classic() +
  theme(legend.position="right") +
  scale_color_manual(values=c("grey", "black", "royalblue2", "springgreen4")) +
  labs(x = "Iteration step",
       y = "BDI Accuracy",
       color = "Algorithm",
       title = "Italian") +
  ylim(68, 75) +
  theme(plot.title = element_text(hjust = 0.5))

################################################################################################

pt_pivot <- subset(d, pivot=="pt",
                   select = c(score,iteration,algorithm))

pt_pivot$iteration <- factor(pt_pivot$iteration,
                             levels = c("base", "en", "es", "de", "fr", "it", "pt"))

pt <- ggplot(data=pt_pivot, aes(x=iteration, y=score, group=algorithm, colour=algorithm)) +
  geom_line(size=0.8, aes(color=algorithm)) +
  geom_point(size=0.8, color="black") +
  theme_classic() +
  theme(legend.position="right") +
  scale_color_manual(values=c("grey", "black", "royalblue2", "springgreen4")) +
  labs(x = "Iteration step",
       y = "BDI Accuracy",
       color = "Algorithm",
       title = "Portuguese") +
  ylim(68, 75) +
  theme(plot.title = element_text(hjust = 0.5))


grid.arrange(en, es, de, fr, it, pt)