在R的地图上绘制英国邮政编码

Question

请帮助R新手

我有一份英国邮政编码清单 - 事实上是300万次观察.使用R将它们绘制到地图上的最佳方法是什么？

谢谢

Answer 1

第1步 - 下载英国邮政编码地理信息:例如 http://www.doogal.co.uk/UKPostcodes.php

https://data.gov.uk/search?q=postcodes

http://www.freemaptools.com/download-uk-postcode-lat-lng.htm

您可以选择您选择的格式.CSV易于使用.将此表导入R.

第2步 - 使用列表创建子集

#You have now a data.frame Df_UK containing geoinfo.
#Your initial list is in Df_JVT with variable PostCodes.
list <- as.list(unique(Df_JVT$PostCodes))
#Select your postcodes from Df_UK and choose variable to display on the map
datamap <- subset(Df_UK, Df_UK$POSTNR %in% list, select= c("POSTNR","CITY", "COUNTY", "LAT",  "LON"))  
row.names(datamap) <- 1:nrow(datamap)

第3步 - 创建空间对象并绘制地图

#Transform data.frame in spatial object
require(rgdal)
require(sp)
require(plotGoogleMaps)

datamap_mat<- cbind(datamap$LON,datamap$LAT)
row.names(datamap_mat) <- 1:nrow(datamap_mat)
AACRS <- CRS("+proj=longlat +ellps=WGS84")

UK_Map <- SpatialPointsDataFrame(datamap_mat, datamap, proj4string = AACRS, match.ID = TRUE) 


#Map Points on Googlemaps
m <- plotGoogleMaps(UK_Map , filename='MAP_UK.html')