Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
my paper plot
#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")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment