Maps

library(tidyverse)
library(sf)
library(tmap)
library(osmdata)
library(ggformula)

Defining a bounding box

bbox_2 <- osmdata::getbb("Jayanagar, Bangalore, India")
bbox_2

       min      max
x 77.56242 77.60242
y 12.90927 12.94927

locations <-
  osmdata::opq(bbox = bbox_2) %>%
  osmdata::add_osm_feature(
    key = "amenity",
    value = c("restaurant", "atm", "college")
  ) %>%
  osmdata_sf() %>% # Convert to Simple Features format
  purrr::pluck("osm_points") # Pull out the data frame of interest
###
dat_buildings <-
  osmdata::opq(bbox = bbox_2) %>%
  osmdata::add_osm_feature(key = "building") %>%
  osmdata_sf() %>%
  purrr::pluck("osm_polygons")

Inspecting OSM data

str(locations)

Classes 'sf' and 'data.frame':  580 obs. of  113 variables:
 $ osm_id                        : chr  "302493798" "308729154" "362446925" "362446927" ...
 $ name                          : chr  "Citibank" "Citibank ATM Jayanagar 7th Block" NA NA ...
 $ access                        : chr  NA NA NA NA ...
 $ addr:city                     : chr  NA NA NA NA ...
 $ addr:country                  : chr  NA NA NA NA ...
 $ addr:district                 : chr  NA NA NA NA ...
 $ addr:floor                    : chr  NA NA NA NA ...
 $ addr:full                     : chr  NA NA NA NA ...
 $ addr:hamlet                   : chr  NA NA NA NA ...
 $ addr:housename                : chr  NA NA NA NA ...
 $ addr:housenumber              : chr  NA NA NA NA ...
 $ addr:postcode                 : chr  NA NA NA NA ...
 $ addr:street                   : chr  NA "Kanakapura Road" NA NA ...
 $ addr:suburb                   : chr  NA NA NA NA ...
 $ air_conditioning              : chr  NA NA NA NA ...
 $ alt_name                      : chr  NA NA NA NA ...
 $ amenity                       : chr  "atm" "atm" NA NA ...
 $ bar                           : chr  NA NA NA NA ...
 $ barrier                       : chr  NA NA NA NA ...
 $ branch                        : chr  NA NA NA NA ...
 $ brand                         : chr  "Citibank" "Citibank" NA NA ...
 $ brand:en                      : chr  NA NA NA NA ...
 $ brand:hi                      : chr  NA NA NA NA ...
 $ brand:kn                      : chr  NA NA NA NA ...
 $ brand:pa                      : chr  NA NA NA NA ...
 $ brand:pnb                     : chr  NA NA NA NA ...
 $ brand:ur                      : chr  NA NA NA NA ...
 $ brand:wikidata                : chr  "Q857063" "Q857063" NA NA ...
 $ brand:wikipedia               : chr  NA NA NA NA ...
 $ brand:wikipedia:pa            : chr  NA NA NA NA ...
 $ brewery                       : chr  NA NA NA NA ...
 $ building                      : chr  NA NA NA NA ...
 $ capacity                      : chr  NA NA NA NA ...
 $ cash_in                       : chr  NA NA NA NA ...
 $ changing_table                : chr  NA NA NA NA ...
 $ check_date                    : chr  NA NA NA NA ...
 $ contact:facebook              : chr  NA NA NA NA ...
 $ contact:instagram             : chr  NA NA NA NA ...
 $ covered                       : chr  NA NA NA NA ...
 $ cuisine                       : chr  NA NA NA NA ...
 $ currency:INR                  : chr  NA NA NA NA ...
 $ delivery                      : chr  NA NA NA NA ...
 $ description                   : chr  NA NA NA NA ...
 $ diet:gluten_free              : chr  NA NA NA NA ...
 $ diet:halal                    : chr  NA NA NA NA ...
 $ diet:jain                     : chr  NA NA NA NA ...
 $ diet:non-vegetarian           : chr  NA NA NA NA ...
 $ diet:vegan                    : chr  NA NA NA NA ...
 $ diet:vegetarian               : chr  NA NA NA NA ...
 $ dog                           : chr  NA NA NA NA ...
 $ door                          : chr  NA NA NA NA ...
 $ drive_through                 : chr  NA NA NA NA ...
 $ email                         : chr  NA NA NA NA ...
 $ fee                           : chr  NA NA NA NA ...
 $ highchair                     : chr  NA NA NA NA ...
 $ image:menu                    : chr  NA NA NA NA ...
 $ image:menu:0                  : chr  NA NA NA NA ...
 $ indoor                        : chr  NA NA NA NA ...
 $ indoor_seating                : chr  NA NA NA NA ...
 $ internet_access               : chr  NA NA NA NA ...
 $ internet_access:fee           : chr  NA NA NA NA ...
 $ internet_access:ssid          : chr  NA NA NA NA ...
 $ level                         : chr  NA NA NA NA ...
 $ microbrewery                  : chr  NA NA NA NA ...
 $ mobile                        : chr  NA NA NA NA ...
 $ name:en                       : chr  NA NA NA NA ...
 $ name:hi                       : chr  NA NA NA NA ...
 $ name:kn                       : chr  "ಸಿಟಿಬ್ಯಾಂಕ್" NA NA NA ...
 $ name:pa                       : chr  NA NA NA NA ...
 $ name:pnb                      : chr  NA NA NA NA ...
 $ name:ur                       : chr  NA NA NA NA ...
 $ note                          : chr  NA NA NA NA ...
 $ official_name                 : chr  NA NA NA NA ...
 $ opening_hours                 : chr  NA NA NA NA ...
 $ operator                      : chr  "Citibank" "Citibank" NA NA ...
 $ operator:wikidata             : chr  "Q857063" "Q857063" NA NA ...
 $ organic                       : chr  NA NA NA NA ...
 $ outdoor_seating               : chr  NA NA NA NA ...
 $ payment:american_express      : chr  NA NA NA NA ...
 $ payment:app                   : chr  NA NA NA NA ...
 $ payment:cards                 : chr  NA NA NA NA ...
 $ payment:cash                  : chr  NA NA NA NA ...
 $ payment:contactless           : chr  NA NA NA NA ...
 $ payment:credit_cards          : chr  NA NA NA NA ...
 $ payment:debit_cards           : chr  NA NA NA NA ...
 $ payment:diners_club           : chr  NA NA NA NA ...
 $ payment:discover_card         : chr  NA NA NA NA ...
 $ payment:google_pay            : chr  NA NA NA NA ...
 $ payment:maestro               : chr  NA NA NA NA ...
 $ payment:mastercard            : chr  NA NA NA NA ...
 $ payment:mastercard_contactless: chr  NA NA NA NA ...
 $ payment:visa                  : chr  NA NA NA NA ...
 $ payment:visa_debit            : chr  NA NA NA NA ...
 $ phone                         : chr  NA NA NA NA ...
 $ ref:vatin                     : chr  NA NA NA NA ...
 $ reservation                   : chr  NA NA NA NA ...
 $ service:electricity           : chr  NA NA NA NA ...
 $ shop                          : chr  NA NA NA NA ...
 $ short_name                    : chr  "Citi" "Citi" NA NA ...
  [list output truncated]
 - attr(*, "sf_column")= chr "geometry"
 - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
  ..- attr(*, "names")= chr [1:112] "osm_id" "name" "access" "addr:city" ...

str(dat_buildings)

Classes 'sf' and 'data.frame':  35808 obs. of  137 variables:
 $ osm_id                     : chr  "27554059" "32425083" "43196401" "43196402" ...
 $ name                       : chr  "Jayanagar 4th Block Shopping Complex" "Paakashala" NA NA ...
 $ access                     : chr  NA NA NA NA ...
 $ addr:block                 : chr  NA NA NA NA ...
 $ addr:city                  : chr  NA "Bengaluru" NA NA ...
 $ addr:district              : chr  NA "Bengaluru Urban" NA NA ...
 $ addr:full                  : chr  NA NA NA NA ...
 $ addr:housename             : chr  NA NA NA NA ...
 $ addr:housenumber           : chr  NA "502/37" NA NA ...
 $ addr:parentstreet          : chr  NA NA NA NA ...
 $ addr:place                 : chr  NA NA NA NA ...
 $ addr:postcode              : chr  NA "560070" NA NA ...
 $ addr:state                 : chr  NA NA NA NA ...
 $ addr:street                : chr  NA "40th cross, 1st Main Rd, 8th Block, Jayanagar" NA NA ...
 $ addr:suburb                : chr  NA NA NA NA ...
 $ air_conditioning           : chr  NA NA NA NA ...
 $ alt_name                   : chr  NA NA NA NA ...
 $ amenity                    : chr  NA "restaurant" NA NA ...
 $ amenity_1                  : chr  NA NA NA NA ...
 $ atm                        : chr  NA NA NA NA ...
 $ bench                      : chr  NA NA NA NA ...
 $ brand                      : chr  NA NA NA NA ...
 $ brand:en                   : chr  NA NA NA NA ...
 $ brand:hi                   : chr  NA NA NA NA ...
 $ brand:kn                   : chr  NA NA NA NA ...
 $ brand:pa                   : chr  NA NA NA NA ...
 $ brand:pnb                  : chr  NA NA NA NA ...
 $ brand:ur                   : chr  NA NA NA NA ...
 $ brand:wikidata             : chr  NA NA NA NA ...
 $ brand:wikipedia            : chr  NA NA NA NA ...
 $ brand:wikipedia:pa         : chr  NA NA NA NA ...
 $ building                   : chr  "yes" "commercial" NA NA ...
 $ building:colour            : chr  NA NA NA NA ...
 $ building:flats             : chr  NA NA NA NA ...
 $ building:levels            : chr  NA NA NA NA ...
 $ building:levels:underground: chr  NA NA NA NA ...
 $ building:material          : chr  NA NA NA NA ...
 $ building:prefabricated     : chr  NA NA NA NA ...
 $ building:use               : chr  NA NA NA NA ...
 $ bus                        : chr  NA NA NA NA ...
 $ capacity                   : chr  NA NA NA NA ...
 $ check_date                 : chr  NA NA NA NA ...
 $ club                       : chr  NA NA NA NA ...
 $ community_centre           : chr  NA NA NA NA ...
 $ construction               : chr  NA NA NA NA ...
 $ contact:email              : chr  NA NA NA NA ...
 $ contact:mobile             : chr  NA NA NA NA ...
 $ content                    : chr  NA NA NA NA ...
 $ cuisine                    : chr  NA NA NA NA ...
 $ currency:others            : chr  NA NA NA NA ...
 $ delivery                   : chr  NA NA NA NA ...
 $ denomination               : chr  NA NA NA NA ...
 $ description                : chr  NA NA NA NA ...
 $ designation                : chr  NA NA NA NA ...
 $ diet:lacto_vegetarian      : chr  NA NA NA NA ...
 $ diet:vegan                 : chr  NA NA NA NA ...
 $ drive_through              : chr  NA NA NA NA ...
 $ ele                        : chr  NA NA NA NA ...
 $ email                      : chr  NA NA NA NA ...
 $ emergency                  : chr  NA NA NA NA ...
 $ fee                        : chr  NA NA NA NA ...
 $ female                     : chr  NA NA NA NA ...
 $ fixme                      : chr  NA NA NA NA ...
 $ government                 : chr  NA NA NA NA ...
 $ healthcare                 : chr  NA NA NA NA ...
 $ healthcare:speciality      : chr  NA NA NA NA ...
 $ height                     : chr  NA NA NA NA ...
 $ heritage                   : chr  NA NA NA NA ...
 $ heritage:operator          : chr  NA NA NA NA ...
 $ heritage:website           : chr  NA NA NA NA ...
 $ house                      : chr  NA NA NA NA ...
 $ internet_access            : chr  NA NA NA NA ...
 $ isced:level                : chr  NA NA NA NA ...
 $ landuse                    : chr  NA NA NA NA ...
 $ layer                      : chr  NA NA NA NA ...
 $ leisure                    : chr  NA NA NA NA ...
 $ level                      : chr  NA NA NA NA ...
 $ lit                        : chr  NA NA NA NA ...
 $ loc_name                   : chr  NA NA NA NA ...
 $ male                       : chr  NA NA NA NA ...
 $ man_made                   : chr  NA NA NA NA ...
 $ max_age                    : chr  NA NA NA NA ...
 $ max_level                  : chr  NA NA NA NA ...
 $ min_age                    : chr  NA NA NA NA ...
 $ min_level                  : chr  NA NA NA NA ...
 $ name:en                    : chr  NA NA NA NA ...
 $ name:etymology:wikidata    : chr  NA NA NA NA ...
 $ name:hi                    : chr  NA NA NA NA ...
 $ name:kn                    : chr  NA NA NA NA ...
 $ name:ml                    : chr  NA NA NA NA ...
 $ name:pa                    : chr  NA NA NA NA ...
 $ name:pnb                   : chr  NA NA NA NA ...
 $ name:ta                    : chr  NA NA NA NA ...
 $ name:ur                    : chr  NA NA NA NA ...
 $ note                       : chr  NA NA NA NA ...
 $ office                     : chr  NA NA NA NA ...
 $ official_name              : chr  NA NA NA NA ...
 $ old_name                   : chr  NA NA NA NA ...
 $ opening_hours              : chr  NA NA NA NA ...
  [list output truncated]
 - attr(*, "sf_column")= chr "geometry"
 - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
  ..- attr(*, "names")= chr [1:136] "osm_id" "name" "access" "addr:block" ...

Plotting Base Maps with ggplot/ggformula

ggplot() +
  geom_sf(data = locations, fill = "gold", color = "grey", linewidth = 0.025) +
  geom_sf(data = dat_buildings, fill = "purple") +
  coord_sf()

gf_sf(geometry = ~geometry, data = locations) %>%
  gf_sf(geometry = ~geometry, dat = dat_buildings)

Plotting with tmap

tm_shape(locations) +
  tm_dots(size = 0.5) +
  tm_shape(dat_buildings) +
  tm_polygons() +
  tm_compass(position = c("right", "top"))

Adding User Data to a Base Map