Here is a quick example:
library("sp")
library("raster")
ind2 <- getData('GADM', country='IND', level=2)
wb2 <- ind2[ind2$NAME_1=="West Bengal",]
cities <- data.frame(name="Purulia", lon=86.36521, lat=23.33208)
spplot(wb2, "NAME_1",
sp.layout=list("panel.points", cities$lon, cities$lat, col="red"),
main="West Bengal Districts",
colorkey=FALSE, scales=list(draw=TRUE))
SpatialPointsDataFrame:
cities <- data.frame(name="Purulia", lon=86.36521, lat=23.33208)
coordinates(cities) <- ~ lon + lat
class(cities)
# [1] "SpatialPointsDataFrame"
spplot(wb2, "NAME_1",
sp.layout=list("sp.points", cities, col="red"),
main="West Bengal Districts",
colorkey=FALSE, scales=list(draw=TRUE))
