Рисование картограммы - "Ошибка эстетики" в ggmap
Каждый!
Я пытаюсь создать картографическую карту района метрополитена Денвера, показывающую различные значения жилья по переписному участку. Когда я пытаюсь нанести на карту, это дает мне 'Error: Aesthetics must be either length 1 or the same as the data (83658): x, y, group, fill'... Как мне решить эту проблему, чтобы я мог создать визуальную карту?
Я прочитал различные вопросы, но ни один из них не помог решить проблему. Предложения будут оценены. Выборка из 20 (из 588) точек данных приведена ниже.
Спасибо!
1. Загрузите пакеты
library(maptools)
library(ggmap)
library(ggthemes)
library(rgdal)
2. Выбрать, определить, построить начальную карту
DenverMetro <- c(-105, 40, -104.8535, 39.3760)
DenverMetroMap <- get_map(location=DenverMetro,
source = "google",
maptype = "roadmap",
zoom = 10,
crop=FALSE)
ggmap(DenverMetroMap)
3. Импорт полигонов из файла shp
DenverMetroCensusTracts <-readOGR(dsn = "c://Users/John/Denver_Housing_Project/ACS_Data/Final_Data", layer = "cb_2013_08_tract_500k")
proj4string(DenverMetroCensusTracts)
DenverMetroCensusTracts <-spTransform(DenverMetroCensusTracts,
CRS("+proj=longlat + datum=WGS84"))
4.Создать начальную карту переписных участков
ggmap(DenverMetroMap) + geom_polygon(aes(x = long, y = lat, group=id),
data = DenverMetroCensusTracts,
color="white",
fill="orange",
alpha = .4, size = .2)
5a.Импортируйте данные о жилье в Денвере, сделайте одну переменную числовой и объедините ее с шейп-файлом переписи
setwd('C:/Users/John/Denver_Housing_Project/ACS_Data/Final_Data')
Median_Values_ACS_13_DHP <-read.csv('ACS_13_5YR_B25077_DHP.csv',
na.strings=c("NA", "-", "?", "(X)"), header=TRUE)
names(Median_Values_ACS_13_DHP) <-c("AFFGEOID", "Id2", "Geography", "Year",
"HouseValue_Median", "HouseValue_Median_MOE_DHP")
HouseValue_Median=as.numeric(as.character(Median_Values_ACS_13_DHP$HouseValue_Median))
Mapping <-merge(DenverMetroCensusTracts, Median_Values_ACS_13_DHP, by.x="AFFGEOID")
6. Создайте карту хороплета
ggmap(DenverMetroMap) + geom_polygon(aes(x = long, y = lat, group = id,
fill = HouseValue_Median), data = Mapping, alpha = .4, size = .2) +
scale_fill_gradient()
GEO.id GEO.id2 GEO.display-label ГОД HD01_VD01 HD02_VD01 1400000US08001007801 8001007801 Тракт переписи 78.01, округ Адамс, Колорадо, 2013 г. 150300 40311 1400000US08001007802 8001007802 Тракт переписи 78.02, округ Адамс, округ Колумбия, Колорадо 780000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000R2000RC-венноним в графстве Адамс 2013 118600 8228 1400000US08001008000 8001008000 переписной тракт 80, округ Адамс, Колорадо 2013 139000 10440 1400000US08001008100 8001008100 переписной тракт 81, округ Адамс, Колорадо 2013 29800 105549 1400000US08001000000 8001008200 перепись 800008000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008008008008000000000000000000000000000080080080000800000000008 Колорадо 2013 46300 67342 1400000US08001988700 8001988700 Перепись Тракт 9887, Adams County, штат Колорадо, 2013 - ** 1400000US08001008309 8001008309 Перепись Тракт 83,09, Адамс Каунти, штат Колорадо 2013 36600 18824 1400000US08001008353 8001008353 Перепись Тракт 83,53, Адамс Каунти, штат Колорадо, 2013 134600 8921 1400000US08001008401 8001008401 Перепись Тракт 84.01, округ Адамс, Колорадо 2013 241300 43038 1400000US08001008402 8001008402 Перепись Тракт 84.02, округ Адамс, Колорадо 2013 215900 15189 1400000US08001008505 8001008505 Перепись тракта 85.05, округ Адамс, Колорадо 2013 174100 6525 140000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 состо же: / или / или только: Сектор 84.01. 8001008507 Перепись Тракт 85,07, Адамс Каунти, штат Колорадо, 2013 177800 5644 1400000US08001008508 8001008508 Перепись Тракт 85,08, Адамс Каунти, штат Колорадо 2013 188700 10424 1400000US08001008523 8001008523 Перепись Тракт 85,23, Адамс Каунти, штат Колорадо 2013 268500 29657 1400000US08001008524 8001008524 Перепись Тракт 85,24, Адамс Каунти, штат Колорадо, 2013 231200 4994 1400000US08001008526 8001008526 Переписной тракт 85.26, округ Адамс, штат Колорадо, 2013 год 284900 14945