Valeria_Eguez

library(highcharter)

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

library(dplyr)

## 
## 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

library(RColorBrewer)
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)