Cuenca Suches

library(leaflet)
Mgraf <- readxl::read_excel("G:/Mi unidad/modelacion_2022/Basedatos1/basedatos1.xlsx","Hoja1")
Dat <- colorBin("magma", domain = Mgraf$pH,bins = 4)

leaflet() %>% 
  addProviderTiles('OpenTopoMap') %>%
  
  addCircleMarkers(data = Mgraf,
                   lng = Mgraf$Longitud,
                   lat = Mgraf$Latitud,
                   color = ~Dat(Mgraf$pH),
                   label = ~Mgraf$pH) %>% 
  addLegend('topright',pal = Dat, values = Mgraf$pH, title = 'parametro pH')

library(leaflet)
Mgraf <- readxl::read_excel("G:/Mi unidad/modelacion_2022/Basedatos1/basedatos1.xlsx","Hoja1")
Dat <- colorBin("magma", domain = Mgraf$Cl,bins = 4)

leaflet() %>% 
  addProviderTiles('OpenTopoMap') %>%
  
  addCircleMarkers(data = Mgraf,
                   lng = Mgraf$Longitud,
                   lat = Mgraf$Latitud,
                   color = ~Dat(Mgraf$Cl),
                   label = ~Mgraf$Cl) %>% 
  addLegend('topright',pal = Dat, values = Mgraf$Cl, title = 'parametro Cl_(mg/l)')

#4.2 Parámetro de fosfatos


library(leaflet)
Mgraf <- readxl::read_excel("G:/Mi unidad/modelacion_2022/Basedatos1/basedatos1.xlsx","Hoja1")
Dat <- colorBin("magma", domain = Mgraf$PO43,bins = 4)

leaflet() %>% 
  addProviderTiles('OpenTopoMap') %>%
  
  addCircleMarkers(data = Mgraf,
                   lng = Mgraf$Longitud,
                   lat = Mgraf$Latitud,
                   color = ~Dat(Mgraf$PO43),
                   label = ~Mgraf$PO43) %>% 
  addLegend('topright',pal = Dat, values = Mgraf$PO43, title = 'parametro PO43')

#4.1 Parámetro de pH


library(leaflet)
Mgraf <- readxl::read_excel("G:/Mi unidad/modelacion_2022/Basedatos1/basedatos1.xlsx","Hoja1")
Dat <- colorBin("magma", domain = Mgraf$pH,bins = 4)

leaflet() %>% 
  addProviderTiles('OpenTopoMap') %>%
  
  addCircleMarkers(data = Mgraf,
                   lng = Mgraf$Longitud,
                   lat = Mgraf$Latitud,
                   color = ~Dat(Mgraf$pH),
                   label = ~Mgraf$pH) %>% 
  addLegend('topright',pal = Dat, values = Mgraf$pH, title = 'parametro pH')