Commit 1b151c6c authored by Carlos Cámara's avatar Carlos Cámara

Minor improvements on geocoding.

parent 4f0d916f
......@@ -19,6 +19,7 @@ calles_valencia = read.csv("data/original/vias-valencia.csv") %>%
mutate(tipovia_ca = codtipovia) %>%
mutate(tipovia_ca = sub("AV", "Avinguda", tipovia_ca)) %>%
mutate(tipovia_ca = sub("C/", "Carrer", tipovia_ca)) %>%
mutate(tipovia_ca = sub("GV", "Gran Via", tipovia_ca)) %>%
mutate(tipovia_ca = sub("PG", "Passeig", tipovia_ca)) %>%
mutate(tipovia_ca = sub("PL", "Plaça", tipovia_ca)) %>%
mutate(tipovia_ca = sub("PTGE", "Passatge", tipovia_ca)) %>%
......@@ -76,7 +77,7 @@ df = df %>%
# Build a new dataframe with desired information.
df2 = df %>%
select(Signatura, Municipio, tipovia_ca, nomoficial, num) %>%
mutate(full_address_ca = paste(tipovia_ca, nomoficial, num, Municipio,
mutate(full_address_ca = paste(tipovia_ca, nomoficial, Municipio, "Spain",
sep = " ")) %>%
filter(!is.na(nomoficial))
......
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