library(geomapdata)
data(worldmap)
skam = SELGEOmap(worldmap, ncut=3, acut=c(10000, Inf), proj=NULL, LIM=NULL)
par(mfrow=c(2,1))
####### plot world map, with all lines:
plotGEOmap(worldmap)
length(worldmap$STROKES$num)
###### same plot with some lines removed:
plotGEOmap(skam)
length(skam$STROKES$num)
#####################
#####################
Run the code above in your browser using DataLab