Starbucks near Ohio state

Starbucks_near_ohio.R

#install.packages("googleway")
library(googleway)

key <- 'AIzaSyCOEzgiO1P6trrSmu9vy9ZVuQDkog6Lwiw'

df_places <- google_places(search_string = "Starbucks", 
                           location = c(40.417287, -82.907123),
                           key = key)
  
df_places$results$formatted_address

cen <- c(mean(df_places$results$geometry$location$lng), mean(df_places$results$geometry$location$lat))
  
gc <- data.frame(lon=df_places$results$geometry$location$lng, lat = df_places$results$geometry$location$lat)
  
map <- get_googlemap(center = cen, scale = 1, maptype = "roadmap", zoom = 10, marker = gc)
ggmap(map, extent = "device")

https://cran.r-project.org/web/packages/googleway/vignettes/googleway-vignette.html