Graphics

leer

siniestro_fall=read_excel("C:\\Users\\ADMIN.PC_ADMIN\\Downloads\\Siniestros_Atlántico_2020_2024.xlsx"
,sheet="Fallecidos")
siniestro_les=read_excel("C:\\Users\\ADMIN.PC_ADMIN\\Downloads\\Siniestros_Atlántico_2020_2024.xlsx",sheet="Lesionados")

limite_oest=min(siniestro_fall$X)
limite_este=max(siniestro_fall$X)
limite_sur=min(siniestro_fall$Y)
limite_norte=max(siniestro_fall$Y)
siniestro_fall %>%
leaflet()%>%
  addTiles()%>%
  fitBounds(
    lng1= limite_oest,
    lat1= limite_sur,
    lng2 = limite_este,
    lat2 = limite_norte
  )%>%
  addMarkers(
    lng = ~X,
    lat = ~Y,
    clusterOptions = markerClusterOptions(),
    popup = siniestro_fall$Municipio_Ubicacion
  )

siniestro_les%>%
  leaflet()%>%
  addTiles()%>%
  addMarkers(
    lng=~X,
    lat = ~Y,
    clusterOptions = markerClusterOptions(),
    popup = siniestro_fall$Municipio_Ubicacion
  )