fake addresses with realistic locations

fake_addresses

library(tidyverse)
library(lubridate)
library(leaflet)

# https://www.fakenamegenerator.com/order.php
# go there to generate fake addresses, don't forget to select to include longitude and latitude

addresses <- read_csv("FakeNameGenerator.com_f201506b.csv")
  
addresses <- addresses %>% mutate(Birthday = mdy(Birthday),
                                  Title = case_when(Title == "Mr." ~ "Herr",
                                  Title == "Mrs." ~ "Frau",
                                  Title == "Ms." ~ "Frau",
                                  Title == "Dr." & Gender == "female" ~ "Frau Dr.",
                                  Title == "Dr." & Gender == "male" ~ "Herr Dr.",
                                  T ~ Title))

mylat <- 47.5596
mylon <- 7.5886

addresses <- addresses %>% 
  mutate(distance = sqrt((Longitude-mylon)^2+(Latitude-mylat)^2))


patients <- addresses %>% sample_n(100, weight = 1/distance^2)

patients %>% 
  leaflet() %>% 
  setView(lng = mylon, lat = mylat, zoom = 12) %>% 
  addTiles() %>% 
  addCircleMarkers(label = ~str_c(GivenName, Surname, StreetAddress, City, sep = " "),
                   radius = 2, color = "red") %>% 
  addMarkers(label = "Me", lng = ~mylon, lat = ~mylat)