Densidad

El tema de los gráficos lo puedes encontrar en el capítulo 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")