Jak uzyskać spplot (kratownicę), aby nie rysować granic wokół wielokątów

Mam zbiór kodów pocztowych, który zawiera wiele wielokątów do spisku (dokładnie 30 357). W konsekwencji, kiedy japdf spplot wszystko, co widzę, to granice, a nie wnętrza choopleth.

Dlatego chciałbym wyłączyć wykreślanie granic, a przynajmniej być w stanie uczynić je znacznie cieńszymi. Jednak kopanie w?spplot a jego różne odgałęzienia (funkcja panelu, poziomowanie itp.) są puste.

Oto przykład, z którym można pracować (granice nie są tutaj tak wyraźne, ale otrzymają wieloboki bajillionów):

library(sp)
Srs1 = Polygons(list(Polygon(cbind(c(2,4,4,1,2),c(2,3,5,4,2)))), "s1")
Srs2 = Polygons(list(Polygon(cbind(c(5,4,2,5),c(2,3,2,2)))), "s2")

SpDF <- SpatialPolygonsDataFrame( SpatialPolygons(list(Srs1,Srs2)), 
            data.frame( z=1:2, row.names=c("s1","s2") ) )
spplot(SpDF, zcol="z")

questionAnswers(1)

yourAnswerToTheQuestion