capa2 %>%
ggplot() +
annotation_map_tile(type = "cartolight", zoomin = 0) +
geom_sf(aes(geometry=geometry,color = PRIORIDAD, fill=PRIORIDAD ), alpha = 0.7, size=1) +
theme_void()+
theme(legend.position="bottom")+
theme(plot.title = element_text(size = 20, face= "bold"),
plot.subtitle = element_text(size = 12, face = "italic", margin=margin(0,0,30,0)),
plot.caption = element_text(size = 10, face = "italic"))+
scale_color_manual(labels = c("Extrema", "Alta", "Media"), values = c("#E65649", "#366499", "#369995"))+
scale_fill_manual(labels = c("Extrema", "Alta", "Media"), values = c("#E65649", "#366499", "#369995"))+
labs(title = "Sitios prioritarios terrestres para la conservación \n de la biodiversidad en México",
subtitle = "El país alberga el 12% de los organismos vivos del planeta.",
caption = "Fuente: Comisión Nacional para el Conocimiento y Uso de la Biodiversidad. Hecho por:HasselFallas")