plot1

      g1 <- ggplot(data=gg, aes(x = group, y = avg, fill = mapping)) +
          geom_bar(stat = "identity", position = 'dodge', width=.85, colour = "black", size = 0.5 ) +
#          geom_errorbar(aes(ymin = avg - se, ymax = avg + se), width = 0.7, size = 0.8, position = position_dodge(width = 0.9), stat="identity") +
          theme_bw(base_size = 50) +
          scale_y_continuous(breaks=seq(0, 120, 20)) +
          expand_limits(y = seq(0, 120, by = 20)) +
          labs(x = "Co-runners", y = "Normalized Execution Time (%)") +
          theme(
              panel.grid.major.x = element_blank(),
              legend.position="top",
              legend.direction = "horizontal",
              legend.title = element_blank(),
              legend.key.width = unit(2, "cm"),
              axis.ticks = element_line(colour = "black"),
              panel.border = element_rect(colour = "black"),
              axis.text.x = element_text(colour = "black", size=100),
              axis.text.y = element_text(colour = "black", size=110),
              legend.text=element_text(size=100),
              axis.title.x = element_blank(),
              axis.title.y = element_blank(),
              legend.box.margin = margin(b = -1.5, unit="cm"),
              plot.margin = unit(c(0, 0.6, 0.3, 0),"cm")
          )