I have data like this:
LocationData<-structure(list(Address = c("London, UK", "London, UK", "Nijmegen, The Netherlands",