Составьте карту количества преступлений в Великобритании, используя tmap - PullRequest
Новая
       11

Составьте карту количества преступлений в Великобритании, используя tmap

0 голосов
/ 01 декабря 2018

Я делаю карту по tmap в R, комбинируя данные с использованием кода города.Не все данные о преступности доступны.После объединения данных о районе и данных о преступности я не могу построить карту 

uk_la1 <- readOGR(dsn = "./infuse_dist_lyr_2011", layer = "infuse_dist_lyr_2011")

Totalcrime <- read.csv('Total_crime_in_each_area_full.csv', header = TRUE)

# Calculate the nnumber of crime per 1000 people
Totalcrime <- transform(Totalcrime, Crime_per_1000_people = Total / Population * 1000)

Totalcrimeno<-Totalcrime %>% select(geo_code, Crime_per_1000_people)

uk_la1@data<-left_join(uk_la1@data, Totalcrimeno,
                               by=c('geo_code'))

qtm(uk_la, fill="Crime_per_1000_people")

Но я получаю ошибку:

Ошибка в $<-.data.frame (*tmp*, «геометрия», значение = список (список (список (: замена имеет 404 строки, данные имеют 405

1 Ответ

0 голосов
/ 23 июля 2019

Вам необходимо преобразовать долготу и широту с помощью системы координат WGS84: 

library(rgdal)
library(spdplyr)
library(geojsonio)
library(rmapshaper)

uk_la <- readOGR(dsn = "./infuse_dist_lyr_2011", layer = "infuse_dist_lyr_2011")

wgs84 <- "+proj=longlat +datum=WGS84"
uk_la_trans <- spTransform(uk_la, CRS(wgs84))

#Convert from Spatial Dataframe to GeoJson 
uk_la_trans_json <- geojson_json(uk_la_trans)
uk_la_trans_sim <= ms_simplify(uk_la_trans_json)

Подробнее о Система координат WGS84

...