Normalized City, State, Country names using R ggmap revgeocode() function to standardize location from lat x lon

normalize_sites.R

library(ggmap)
library(data.table)
## download data.csv from betydb.org/sites.csv
sites <- fread('~/Downloads/data (11).csv')

                ]
latlon <- sites[(!is.null(Lat) & !is.null(Lon) & !grepl("Earth", Sitename)),
                list(id = Id, lat = Lat, lon = Lon)]

#result <- list()
#all.addresses <- list()
for(site_id in latlon$id){
  if(!site_id %in% names(result) & !latlon[id == site_id, list(lat == "" | lon == "")]){
    print(sites[Id == site_id ])
    address <- data.table(revgeocode(as.numeric(latlon[id == site_id, list(lon, lat)]), output = 'more'))
    all.addresses[[as.character(site_id)]] <- address
    print(address)
    result[[as.character(site_id)]] <- 
      address[,list(id = site_id, 
                    city = ifelse(exists("locality"),
                                  as.character(locality), 
                                  ifelse(exists("postal_town"), 
                                         as.character(postal_town), NA)), 
                    state = ifelse(exists("administrative_area_level_1"), 
                                   as.character(administrative_area_level_1), 
                                   ifelse(exists("administrative_area_level_2"), 
                                          as.character(administrative_area_level_2), NA)),                                     
                    country = country)]
    }
  }

sites_normalized.csv