# NOT RUN {
library(ggplot2)
Coliseum <- geo_lite("Coliseo, Rome, Italy")
# Coliseum
Col_sf <- reverse_geo_lite_sf(
lat = Coliseum$lat,
lon = Coliseum$lon,
points_only = FALSE
)
ggplot(Col_sf) +
geom_sf()
# City of Rome - Zoom 10
Rome_sf <- reverse_geo_lite_sf(
lat = Coliseum$lat,
lon = Coliseum$lon,
custom_query = list(zoom = 10),
points_only = FALSE
)
ggplot(Rome_sf) +
geom_sf()
# County - Zoom 8
County_sf <- reverse_geo_lite_sf(
lat = Coliseum$lat,
lon = Coliseum$lon,
custom_query = list(zoom = 8),
points_only = FALSE
)
ggplot(County_sf) +
geom_sf()
# }
Run the code above in your browser using DataLab