geokodowanie.R

library(tidyverse)
library(ggmap)
library(readxl)

setwd('/Dane/IzPZ')

# wczytujemy dane
dane <- read_excel('instalacje_IPPC.xlsx', col_names = TRUE)
# 
miejsca_df <- dane %>% 
  mutate(ADRES = paste0(NAZWA_ZAKLADU,', ',KOD ,' ',NAZWA_MIEJSCOWOSCI)) %>% 
  select(ADRES, NAZWA_WOJEWODZTWA, ULICA, NUMER, NUMER_BRANZY)

# miejsce na longitute and latitude
miejsca_df$long <- NA
miejsca_df$lat <- NA

#zdekodujemy z wykorzystaniem geolokalizatora google

ggmap::register_google(key='Sekretny_kod')

for(i in 1:nrow(miejsca_df)) {
  loc <- geocode(paste0(iconv(miejsca_df[i, "ADRES"], to="UTF8"), ", Polska"))
  miejsca_df[i, "long"] <- loc$lon
  miejsca_df[i, "lat"] <- loc$lat
}

#zapisujemy do pliku
write.table(miejsca_df, file = "instalacje_IPPC.txt", row.names=FALSE, col.names=TRUE, fileEncoding="UTF-8")