Skip to content

Instantly share code, notes, and snippets.

@Jianghao
Created January 25, 2016 09:31
Show Gist options
  • Save Jianghao/05a9e16dfb53e1744f75 to your computer and use it in GitHub Desktop.
Save Jianghao/05a9e16dfb53e1744f75 to your computer and use it in GitHub Desktop.
library(data.table)
library(rgdal)
library(foreign)
setwd("C:/Users/Jianghao/Desktop/geocoding/")
data <- fread("geocoding.csv")
head(data)
coordinates(data) <- ~ lon + lat
proj4string(data) <- CRS("+proj=longlat +datum=WGS84")
writeOGR(obj = data, dsn = "geocoding.shp", layer = "geocoding", driver = "ESRI Shapefile")
write.dbf(dataframe = data@data, file = "geocoding.dbf")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment