data("measlesWeserEms")
(li <- layout.labels(measlesWeserEms@map, labels = list(font=2, labels="GEN")))
## example usage in spplot()
spplot(measlesWeserEms@map, zcol = "AREA", sp.layout = list(li),
col.regions = rev(heat.colors(100)))
Run the code above in your browser using DataLab