x=c(7,8,10,7,6,10,11,4)
y=c(5,8,18,10,7,12,16,2)
d = data.frame(x,y)
plot(d$x,d$y,xlab = "x", ylab = "y", pch = 19, lwd=1.5, cex=1.5)