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") )
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎