# NOT RUN {
#Example 1: Simple points with labels
MyPoints=create_Points(Input=PointData)
plot(MyPoints)
text(MyPoints$x,MyPoints$y,MyPoints$name,adj=c(0.5,-0.5),xpd=TRUE)
#Example 2: Simple points with labels, highlighting one group of points with the same name
MyPoints=create_Points(Input=PointData)
plot(MyPoints)
text(MyPoints$x,MyPoints$y,MyPoints$name,adj=c(0.5,-0.5),xpd=TRUE)
plot(MyPoints[MyPoints$name=='four',],bg='red',pch=21,cex=1.5,add=TRUE)
#Example 3: Buffered points with radius proportional to catch
MyPoints=create_Points(Input=PointData,Buffer=0.5*PointData$Catch)
plot(MyPoints,col='green')
text(MyPoints$x,MyPoints$y,MyPoints$name,adj=c(0.5,0.5),xpd=TRUE)
#Example 4: Buffered points with radius proportional to catch and clipped to the Coast
MyPoints=create_Points(Input=PointData,Buffer=2*PointData$Catch,Clip=TRUE)
plot(MyPoints,col='cyan')
plot(Coast[Coast$ID=='All',],add=TRUE,col='grey')
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab