L'Essentiel du Package R Highcharter Pour des Graphiques Interactifs Faciles

Chargement des packages R réquis

library(highcharter) 

Préparation des données

Données de démonstration: mtcars. La variable cyl est utilisée comme variable de groupement.

# Charger les données
data("mtcars")
df <- mtcars
# Convertir cyl comme variable de groupement
df$cyl <- as.factor(df$cyl)
# Inspecter les données
head(df[, c("wt", "mpg", "cyl", "qsec")], 4)

##                  wt  mpg cyl qsec
## Mazda RX4      2.62 21.0   6 16.5
## Mazda RX4 Wag  2.88 21.0   6 17.0
## Datsun 710     2.32 22.8   4 18.6
## Hornet 4 Drive 3.21 21.4   6 19.4

Diagrammes de dispersion de base

hc <- df %>% hchart('scatter', hcaes(x = wt, y = mpg))

hc

Diagrammes de dispersion avec plusieurs groupes

# Changer la couleur par groupe
# Définir des couleurs personnalisées
hc <- df %>% 
  hchart('scatter', hcaes(x = wt, y = mpg, group = cyl)) %>%
  hc_colors(c("#00AFBB", "#E7B800", "#FC4E07"))

hc

Ajouter des lignes de régression

# Calculer un modèle de régression
library(dplyr)
library(broom)
model <- lm(mpg ~ wt, data = df)
fit <- augment(model) %>% arrange(wt)

# Visualisation
hc <- df %>% 
  hchart('scatter', hcaes(x = wt, y = mpg, group = cyl)) %>%
  hc_add_series(
    fit, type = "line", hcaes(x = wt, y = .fitted),
    name = "Fit", id = "fit"
    ) 

hc

Graphique à bulles

Dans un graphique à bulles, la taille des points est contrôlée par une variable continue, ici qsec.

hc <- df %>% 
  hchart(
    'scatter', hcaes(x = wt, y = mpg, size = qsec, group = cyl),
    maxSize = "10%"
    )

hc

Colorer par une variable continue

hc <- df %>% 
  hchart('scatter', hcaes(x = wt, y = mpg, color = mpg))

hc