Cómo hacer un gráfico de densidad en highcharter

Último día del calendario de adviento 2022 especial Highcharter. Hoy veremos cómo hacer un gráfio de densidad interactivo con R.

El tema de los gráficos lo puedes encontrar en la entrada sobre cómo crear temas en highcharter y configurarlo al inicio de la sesión así:

library(highcharter)

options(highcharter.theme = elartedeldato_theme)

Cómo hacer un gráfico de densidad en Highcharter

De nuevo, utilizaremos los datos de la librería palmerpenguins y la variable longitud del pico de los pingüinos en mm.

library(highcharter)
library(dplyr)

data(penguins, package = "palmerpenguins") 

Así como para el histograma, no era necesario indicar el tipo de gráfico en hchart(), para el gráfico de densidad, basta con aplicar la función density() a los datos de entrada.

hchart(density(penguins$bill_length_mm, na.rm = T), type = "area") |>
  hc_title(text = "<b>Gráfico de Densidad</b>") |>
  hc_subtitle(text = "<i>Longitud del pico de pingüinos del archipiélago Palmer por sexo- librería: palmerpenguins</i>") |>
  hc_credits(enabled = TRUE, text = "http://elartedeldato.com") 

Cómo hacer un gráfico de densidad por grupos en Highcharter

Para poder realizar un gráfico de densidad por grupos en Highcharter separamos la series de datos en dos y aplicamos la función hc_add_series().

data_female <- pull(filter(penguins, sex == "female"), bill_length_mm)
data_male <- pull(filter(penguins, sex == "male"), bill_length_mm)

hchart(density(data_female, na.rm = T), type = "area", name = "female") |>
  hc_add_series(density(data_male, na.rm = T), type = "area", name = "male") |>
  hc_title(text = "<b>Gráfico de Densidad</b>") |>
  hc_subtitle(text = "<i>Longitud del pico de pingüinos del archipiélago Palmer por sexo- librería: palmerpenguins</i>") |>
  hc_credits(enabled = TRUE, text = "http://elartedeldato.com") 

¡FELIZ NAVIDAD!