Commit 71105c93 authored by numeroteca's avatar numeroteca

VUT por geocodificar del registro oficial

parent b9c24edb
......@@ -14,6 +14,9 @@ vut_valencia <- read.csv("data/original/190302_viviendas-turisticas-comunidad-va
vut <- read_csv("data/output/190302_viviendas-turisticas-comunidad-valenciana_valencia_geocoded_barrio-distrito.csv")
export.to.geocode <- vut %>% filter(is.na(barrio))
write.csv(airbnb, file = "data/output/190302_viviendas-turisticas-comunidad-valenciana_valencia_por-geocodificar.csv", row.names = FALSE)
# shapes
barrios <- readOGR("data/original/shapes/barrios.valencia.wgs84.geojson")
distritos <- readOGR("data/original/shapes/distritos.valencia.wgs84.geojson")
......@@ -134,7 +137,7 @@ ggplot() +
# por distrito en Valencia------------
vut.distrito <- group_by(vut,distrito) %>% summarise( n= n() ) %>% arrange(desc(n))
vut.distrito %>% filter(!is.na(distrito)) %>%
vut.distrito %>% #filter(!is.na(distrito)) %>%
ggplot(aes(x = reorder(distrito,n), y = n)) +
geom_col()+
geom_text(data = vut.distrito %>% filter(!is.na(distrito)),
......
This source diff could not be displayed because it is too large. You can view the blob instead.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment