Distribución de félidos en Costa Rica

Code

felidos |>
  select(species, eventDate, stateProvince, locality, decimalLongitude, decimalLatitude) |>
  datatable(
    colnames = c("Especie", "Fecha", "Provincia", "Localidad", "Longitud", "Latitud", "Objeto"),
    options = list(
      pageLength = 10
    )
  )

Code

g <-
felidos |>
  ggplot(aes(x = fct_infreq(species))) +
  geom_bar(fill = "orange", color = "black") +
  xlab("Especie") +
  ylab("Cantidad de individuos")

ggplotly(g)

Code

# Especificar el modo interactivo
tmap_mode("view")

# Definir el mapa de provincias y registros de félidos
mapa_altitud_provincias_felidos <-
  
  # Especificar el centro y el nivel inicial de zoom
  tm_view(
    set_view = c(lon = -84.2, lat = 9.6, zoom = 7)
  ) +
  
  # Altitud
  tm_shape(altitud, name = "Altitud") +
  tm_raster(
    col.scale = tm_scale_continuous(values = c("green", "yellow", "brown", "gray")),
    col.legend = tm_legend(title = "Altitud (m)")
  ) +
  
  # Félidos (puntos)
  tm_shape(felidos, name = "Félidos") +
  tm_dots(
    fill = "species",
    fill.scale = tm_scale(values = "brewer.set1"),   # paleta Set1
    fill.legend = tm_legend(title = "Especie"),       # título de la leyenda
    
    # Otras propiedades visuales
    size = 0.5,
    id = "species",
    popup.vars = c(
      "Localidad" = "locality",
      "Fecha" = "eventDate",
      "Fuente" = "institutionCode"
    )
  ) +
  
  # Definir la escala gráfica
  tm_scalebar(position = c("left", "bottom"))

# Mostrar el mapa
mapa_altitud_provincias_felidos