Mapa Bs As

theme_set(cowplot::theme_minimal_grid()+
            theme(legend.position = "bottom",
                  legend.justification = "center",
                  legend.title.align = 0.5,
                  legend.title = element_text(size = 10, face = "bold"),
                  legend.text = element_text(size = 10),
                  axis.text.x =  element_text(size = 6),
                  axis.text.y = element_text(size = 6),
                  axis.title.x = element_text(size=12, face = "bold"),
                  axis.title.y = element_text(size=12, face = "bold"),
                  panel.grid = element_blank(),
                  panel.border = element_rect(color = "gray50", size=.2),
                  panel.spacing.x = unit(1.5, "lines"),
                  panel.background = element_rect(fill = "#d2eeff")
            )
          
)


library(sf)

BSAS <- raster::getData(name = "GADM", country = "ARG", level = 2) %>% 
  st_as_sf() %>% 
  filter(NAME_1 == "Buenos Aires") 

BSAS %>% 
  ggplot()+
  geom_sf()+
  coord_sf(xlim = c(-63,-56.5), ylim = c(-40, -36), expand = FALSE)