Chargement des packages R réquis

# Charger les packages R requis
library(tidyverse)
library(highcharter) 
# Définir les options de highcharter
options(highcharter.theme = hc_theme_smpl(tooltip = list(valueDecimals = 2)))

Préparation des données

Nous allons créer deux data frames dérivées du jeu de données ToothGrowth.

df <- data.frame(dose=c("D0.5", "D1", "D2"),
                len=c(4.2, 10, 29.5))

head(df, 4)

##   dose  len
## 1 D0.5  4.2
## 2   D1 10.0
## 3   D2 29.5

df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3),
                dose=rep(c("D0.5", "D1", "D2"),2),
                len=c(6.8, 15, 33, 4.2, 10, 29.5))

head(df2, 4)

##   supp dose  len
## 1   VC D0.5  6.8
## 2   VC   D1 15.0
## 3   VC   D2 33.0
## 4   OJ D0.5  4.2

• len: Longueur des dents
• dose: Dose en milligrammes (0,5, 1, 2)
• supp: Type de supplément (VC ou OJ)

Line plots basiques

hc <- df %>% hchart(
  'line', hcaes(x = dose, y = len),
  color = "steelblue"
  ) 

hc

Line plot avec plusieurs groupes

hc <- df2 %>% 
  hchart(
  'line', hcaes(x = dose, y = len, group = supp)
  )  %>%
  hc_colors(c("#999999", "#E69F00"))

hc

Line plot avec un axe x numérique

Si la variable sur l’axe des abscisses est numérique, il peut être utile de la traiter comme une variable continue ou un facteur, selon ce que vous voulez faire:

# Créer des données
df3 <- data.frame(supp=rep(c("VC", "OJ"), each=3),
                dose=rep(c("0.5", "1", "2"),2),
                len=c(6.8, 15, 33, 4.2, 10, 29.5))
head(df3)

##   supp dose  len
## 1   VC  0.5  6.8
## 2   VC    1 15.0
## 3   VC    2 33.0
## 4   OJ  0.5  4.2
## 5   OJ    1 10.0
## 6   OJ    2 29.5

Axe X traité comme une variable continue:

df3$dose <- as.numeric(as.vector(df3$dose))
hc <- df3 %>%
  hchart('line', hcaes(x = dose, y = len, group = supp)) 

hc

Axe X traité comme une variable discrète:

df3$dose<-as.factor(df3$dose)
hc <- df3 %>% 
  hchart('line', hcaes(x = dose, y = len, group = supp)) 

hc

Line plots avec les dates sur l’axe des abscisses : Séries chronologiques

# Données sur les séries chronologiques économiques
# Vérifie automatiquement si la colonne x est une date
data(economics_long, package = "ggplot2")
economics_long2 <- economics_long %>%
  dplyr::filter(variable %in% c("pop", "uempmed", "unemploy"))
economics_long2 

## # A tibble: 1,722 x 4
##   date       variable  value value01
##   <date>     <chr>     <dbl>   <dbl>
## 1 1967-07-01 pop      198712 0      
## 2 1967-08-01 pop      198911 0.00164
## 3 1967-09-01 pop      199113 0.00330
## 4 1967-10-01 pop      199311 0.00492
## 5 1967-11-01 pop      199498 0.00646
## 6 1967-12-01 pop      199657 0.00777
## # … with 1,716 more rows

hc <- hchart(
  economics_long2, "line", 
  hcaes(x = date, y = value01, group = variable)
  )

hc

Spline : Ligne avec interpolation polynomiale

# Préparation des données 
data("diamonds", package = "ggplot2")
df4 <- diamonds %>%
  group_by(cut, color)%>%
  count()

# Graphique Spline
hc <- df4 %>% 
  hchart('spline', hcaes(x = 'cut', y = 'n', group = "color"))

hc