plot2

g2 <- ggplot(data=dmetric, aes(x=x, y=y)) +
   geom_point(colour = "black", size = 6) +
   geom_smooth(method="lm", col = "red", se=FALSE, size=4) +
   scale_y_continuous(breaks=seq(0, 50, 10)) +
   scale_x_continuous(breaks=seq(0, 0.4, 0.1)) +
   expand_limits(x = seq(0, 0.4, by = 0.1)) +
   expand_limits(y = seq(0, 50, by = 10)) +
   labs(x = "Instruction Dissimilarity", y = "Performance Improvement (%)") +
   theme_bw(base_size = 60) +
   scale_x_continuous(position = "top") +
   theme(
    panel.grid = element_blank(),
    legend.position="none",
    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=element_text(colour = "black", size=70),
    axis.title=element_text(size=60),
#    axis.title.x = element_blank(),
#    axis.title.y = element_blank(),
    legend.text=element_text(size=90),
    legend.box.margin = margin(b = -1.5, unit="cm"),
    plot.margin = unit(c(0,.5,.5,.5),"cm")
   )