library(maptools)
nc.shp <- read.shape(system.file("shapes/sids.shp", package="maptools")[1])
data(ncshp)
nc1 <- as.SpatialRings.Shapes(nc.shp$Shapes, as.character(nc.shp$att.data$FIPS))
plotSpatialRings(nc1)
invisible(text(getSRSringsLabptSlots(nc1), labels=getSRSringsIDSlots(nc1), cex=0.6))
Run the code above in your browser using DataLab