Question

我有一列超过1000个伦敦完整邮政编码。我需要将这些邮政编码转换为纬度和经度，然后将每个点绘制到伦敦的底图上。我想将我的邮政编码的空间分布和集中程度显示为伦敦上的点。

我尝试使用ggmap，maps和mapdata进行此练习，但无济于事。

install.packages("ggmap")

install.packages(c("maps", "mapdata"))

library(ggmap)
library(mapdata)
library(tidyverse)
library(dplyr)
mapdata <- filter(mapdata, Country--'UK')

错误消息：

as.ts（x）中的错误：找不到对象'mapdata'

Answer 1

首先，我发现了英国水here的shapefile层。您可能希望找到一个更好的。最好在ONE GIS FOLDER中下载所有shapefile以供将来使用，包括与它们一起压缩的所有文件。

第二，我使用rgdal包通过readOGR命令打开了shapefile。

第三，我使用leaflet包将这些数据放置在伦敦地图上。

library(leaflet);library(rgdal)
setwd("/yourpathhere/")  #update your path here

ukwater<-readOGR(dsn='.',layer='GBR_water_lines_dcw')

leaflet() %>% 
  addProviderTiles("Stamen.Toner") %>% 
  setView(0,51.4,zoom=9) %>%  # longitude and latitute, respectively
  addPolygons(data=ukwater)

在R的伦敦地图上绘制邮政编码

1 个答案: