MAPAS

library(highcharter)

## Warning: package 'highcharter' was built under R version 4.0.5

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

## Highcharts (www.highcharts.com) is a Highsoft software product which is

## not free for commercial and Governmental use

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.0.5

catolica_2022 <- readxl::read_excel('datos.xlsx','Hoja1')

head(catolica_2022) # para ver encabezados

## # A tibble: 6 x 15
##     Año Codigo  Mes   Nombre Tipo  Municipio Comunidad  Long   Lat    PH      Cd
##   <dbl> <chr>   <chr> <chr>  <chr> <chr>     <chr>     <dbl> <dbl> <dbl>   <dbl>
## 1  2016 RHUN-02 Nov   Rio S~ Rio   Huanuni   Pucara G~ -66.8 -18.3  8.19 NA     
## 2  2017 RHUN-02 Octu~ Puent~ Río   Huanuni   Quewallu~ -66.8 -18.3  9.02  0.05  
## 3  2018 RHUN-02 Dic   San J~ Rio   Huanuni   Quewallu~ -66.8 -18.3  9.2   0.0001
## 4  2019 RHUN-02 Sep   Puent~ Río   Huanuni   Quewallu~ -66.8 -18.3 10.2   0.05  
## 5  2016 RHUN-03 Nov   Rio S~ Rio   Huanuni   P.Milita~ -66.9 -18.3  3.25 NA     
## 6  2017 RHUN-03 Octu~ Playa~ Río   Huanuni   Playa Ve~ -66.9 -18.3  3.95  7.02  
## # ... with 4 more variables: Fe <dbl>, SO42 <dbl>, DQO <dbl>, UH <chr>

str(catolica_2022) # tambien para ver datos

## tibble [31 x 15] (S3: tbl_df/tbl/data.frame)
##  $ Año      : num [1:31] 2016 2017 2018 2019 2016 ...
##  $ Codigo   : chr [1:31] "RHUN-02" "RHUN-02" "RHUN-02" "RHUN-02" ...
##  $ Mes      : chr [1:31] "Nov" "Octubre" "Dic" "Sep" ...
##  $ Nombre   : chr [1:31] "Rio San Jose" "Puente ferrocarril, río San Juan de Sora Sora" "San Juan de Sora Sora" "Puente ferrocarril, río San Juan de Sora Sora" ...
##  $ Tipo     : chr [1:31] "Rio" "Río" "Rio" "Río" ...
##  $ Municipio: chr [1:31] "Huanuni" "Huanuni" "Huanuni" "Huanuni" ...
##  $ Comunidad: chr [1:31] "Pucara Grande" "Quewalluni" "Quewalluni" "Quewalluni" ...
##  $ Long     : num [1:31] -66.8 -66.8 -66.8 -66.8 -66.9 ...
##  $ Lat      : num [1:31] -18.3 -18.3 -18.3 -18.3 -18.3 ...
##  $ PH       : num [1:31] 8.19 9.02 9.2 10.25 3.25 ...
##  $ Cd       : num [1:31] NA 0.05 0.0001 0.05 NA 7.02 4.4 4.49 1.5 1.75 ...
##  $ Fe       : num [1:31] NA 2e-02 1e-02 2e-02 1e+03 ...
##  $ SO42     : num [1:31] 21.5 52.9 34 43.1 1940.8 ...
##  $ DQO      : num [1:31] 2 3 7 3 452 153 152 150 11 13 ...
##  $ UH       : chr [1:31] "Sora" "Sora" "Sora" "Sora" ...

catolica_2022 %>% 
  hchart('scatter', hcaes(x = Codigo, y = PH, group = Comunidad)) %>%
  hc_colors(c("#00AFBB", "#E7B800", "#FC4E07", "blue","green"))

library(leaflet)

# PASO 1

paleta_colores <- colorNumeric(palette = "Spectral",domain = catolica_2022$PH)

# paso 2
# CTRL + SHIFT + M

leaflet() %>%
  addProviderTiles("OpenTopoMap") %>% 
  
  #PASO 3
  addCircleMarkers(data = catolica_2022,
                   lng = catolica_2022$Long,
                   lat = catolica_2022$Lat,
                   color = ~paleta_colores(catolica_2022$PH),
                   label = ~catolica_2022$PH)  %>% 
  
  addLegend("topright",pal =paleta_colores, values =catolica_2022$PH, title = "Parametro pH"  )

library(leaflet)
library(leaflet.minicharts)

## Warning: package 'leaflet.minicharts' was built under R version 4.0.5

library(stars)

## Warning: package 'stars' was built under R version 4.0.5

## Loading required package: abind

## Warning: package 'abind' was built under R version 4.0.3

## Loading required package: sf

## Warning: package 'sf' was built under R version 4.0.5

## Linking to GEOS 3.9.1, GDAL 3.2.1, PROJ 7.2.1; sf_use_s2() is TRUE

nuevoseleccion <-catolica_2022 [    ,10:14   ]

paleta_nueva <- c("#00AFBB", "#E7B800", "#FC4E07", "blue","green")

leaflet() %>%
  addProviderTiles ("Esri.WorldImagery") %>% 
  addMinicharts(catolica_2022$Long, catolica_2022$Lat, type = "pie",
                width = 30*nuevoseleccion, chartdata = nuevoseleccion, colorPalette = paleta_nueva)