Tarea_2

datosph <- readxl::read_excel("G:/.shortcut-targets-by-id/1NcL9s4s8BCy0jh3YFweuj5BkWXQ9S5Xr/MODELACION2022/MODULO_CALIDAD_HIDRICA/CALIDAD_HIDRICA/calidad.xlsx","Sheet1")

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

library(dplyr)

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

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

hchart(datosph, 'heatmap', hcaes(x= Codigo, y= Parametro, value= Clasificacion))%>%
  hc_colorAxis(stops=color_stops(5, rev(RColorBrewer::brewer.pal(5, "PRGn")))) %>%  
  hc_tooltip(shared= TRUE, borderColor = "black", valueDecimals=2) %>%   
  hc_exporting(enabled= TRUE, filename = "Clasificacion en base a parametros de pH, DQO y Fe")