# NOT RUN {
library(sf)
library(ggmap)
data(crime)
crime <- crime[complete.cases(crime), ]
crime_sf <- st_as_sf(crime, coords = c("lon", "lat"), crs = "+init=epsg:4326")
mapview(crime_sf, zcol = "offense", cex = 3)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab