Analisis de pH

Se trabajó con los siguientes datos que fueron previamente resumidos:

library(readxl) 
library(leaflet)
library(leaflet.minicharts)

Datos<- readxl::read_excel('/cloud/project/PREGUNTA_1.xlsx','Hoja2')

B<- Datos[1:10 , ] 
paleta_colores<- colorNumeric(palette ="YlOrRd",domain = B$pH)

leaflet()%>% 
  addProviderTiles("Esri.WorldImagery") %>%
  
  addCircleMarkers(data = B, lng =
                     Datos$Lat, lat = Datos$Long, color =
                     ~paleta_colores(B$pH), label = ~B$pH) %>%
  
  addLegend("topright",pal = paleta_colores, values = B$pH,title
            = "pH")

library(leaflet.minicharts)

nuevoseleccion <- B$pH

paleta_nueva <-c("#9C0824", "#C51517", "#DD4636", "#F5796A","#EAC0BD")

Podemos comparar estos niveles de pH con los que dice la normativa:

Norativa