x1 <- c(1,8,5,3,8,7)
y1 <- c(4,6,3,8,2,7)
plot(x1,y1,cex=.8,pch=1,col="red")
x2<-c(4,5,8,6,4)
y2<-c(9,8,2,3,1)
x3<-c(2,1,6,7,4)
y3<-c(7,9,1,5,2)
points(x2,y2,cex=.8,pch=2,col="blue")
points(x3,y3,cex=.8,pch=3,col="green")
legend("topright",c("gfg1","gfg2","gfg3"),
cex=0.5,col=c("red","blue","green"),
pch=c(1,2,3))