Introducción

Este es un resumen de las audiencias en los distintos juzgados de la Provincia de Corrientes en el periodo enero-agosto del año 2021.

## Primero cargamos los paquetes que necesitamos 
library(leaflet)
library(leaflet.extras)
library(leaflet.minicharts)
library(dplyr)
library(htmltools)
library(sf)
library(readxl)

setwd("C:/Users/Los Mourglia/Downloads/mapa circunscripciones/mapa circunscripciones")# Elijo la carpeta donde esta el archivo
audi<-read_xlsx("Audiencias Oralidad con lat long.xlsx")

states <- read_sf("circunscripciones.shp") # leo el mapa

tag.map.title <- tags$style(HTML("
  .leaflet-control.map-title { 
    transform: translate(-50%,20%);
    position: fixed !important;
    left: 50%;
    text-align: center;
    padding-left: 10px; 
    padding-right: 10px; 
    background: rgba(255,255,255,0.75);
    font-weight: bold;
    font-size: 15px;
  }
"))

title <- tags$div(
  tag.map.title, HTML("Audiencias Oralidad 2021 por Juzgados"))



bins <- c(0, 199, 226, 276, 305, 506,700)
pal <- colorBin("Blues", domain = states$violencia, bins = bins)

# descargo el icono de la página 

icons <- awesomeIconList(
  escuela = makeAwesomeIcon(icon='fa-balance-scale', library='fa', markerColor = 'blue'))

# Ejecuto la funcion leaflet con las dos capas 

leaflet(audi) %>% addTiles() %>% 
  #addBootstrapDependency() %>%
  addAwesomeMarkers (data=audi,
                     lng=~long, lat=~lat, 
                     label=~JUZGADOS,
                     icon = icons,
                       popup = paste0("Audiencia Preliminar:",audi$AUDIENCIAPRELIMINAR,
                                      "<br>","Audiencia Final:",audi$AUDIENCIAFINAL),
                     clusterOptions = markerClusterOptions(removeOutsideVisibleBounds = F),
                     labelOptions = labelOptions(noHide = F,
                                                 direction = 'auto'),group = 'Audiencias')%>%

  addPolygons(data=states,
    fillColor = ~pal(states$violencia),
    weight = 2,
    opacity = 0.4,
    color = "white",
    dashArray = "3",
    fillOpacity = 0.5,
    labelOptions = labelOptions(
      style = list("font-weight" = "italic", padding = "8px 8px"),
      textsize = "12px",
      direction = "auto")) %>%
  #addLegend(pal = pal, values = ~states$violencia, opacity = 0.7, title = NULL,
  #          position = "bottomright") %>%
  
  addControl(title, position = "topleft", className="map-title")%>%
  addControl("<P>Fuente:Poder Judicial<br/>Oficina de Estadísticas y Registros</P>",
             position='bottomleft')