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))
|