mirko

library(highcharter)

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

library(RColorBrewer)

# IMPORTAR DATOS la ruta larga

calidad <- readxl::read_excel("calidad.xlsx","Sheet1")



hchart(calidad,"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", valuedecimal=2)