my paper plot

group_plot.R

#Sample 1
x = c(70, 60, 30, 80, 40, 100, 65, 20, 55, 70, 50)
y = c(91, 53, 8, 62, 43, 86, 75, 45, 90, 10, 35)
z = c(82, 49, 31, 41, 56, 62, 50, 39, 43, 74, 65)

col = c("blue", "black", "green4")
x_tick = c(0, 18, 36, 54, 72, 90, 108, 126, 144, 162, 180)

#thicker lines
par(cex=1.25)
plot(x,
    col = col[1], pch=19, 
    ylim = c(0,115), xaxt="n",
    xlab = "Gallery Angles", 
    ylab = "Correct Classifiction Rates",  yaxs="i", xaxs="i")

axis(side = 1, at = (1:11), cex.axis=0.90, labels = x_tick, tick = TRUE)

lines(x, col=col[1], lwd=2)

points(y, col=col[2], pch=20)
lines(y, col=col[2], lwd=2)

points(z, col=col[3], pch=25)
lines(z, col=col[3], lwd=2)

title(main="main title") 

legend("top", 
      legend=c("x", "y", "z"), 
      col=col, 
      pch=c(19,15,18),
      ncol=3)
grid(nx = NA, ny = NULL, col = "black")