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

Chargement des packages R réquis

library(tidyverse)
library(highcharter) 

Préparation des données

data("diamonds", package = "ggplot2")

df <- diamonds %>%
  group_by(cut)%>%
  count()
head(df, 4)

## # A tibble: 4 x 2
## # Groups:   cut [4]
##   cut           n
##   <ord>     <int>
## 1 Fair       1610
## 2 Good       4906
## 3 Very Good 12082
## 4 Premium   13791

df2 <- diamonds %>%
  group_by(cut, color)%>%
  count()
head(df2, 4)

## # A tibble: 4 x 3
## # Groups:   cut, color [4]
##   cut   color     n
##   <ord> <ord> <int>
## 1 Fair  D       163
## 2 Fair  E       224
## 3 Fair  F       312
## 4 Fair  G       314

Area plot basique

hc <- df %>% 
  hchart(
  'area', hcaes(x = cut, y = n),
  color = "steelblue"
  ) 

hc

Area plot avec plusieurs groupes

hc <- df2 %>% 
  hchart('area', hcaes(x = 'cut', y = 'n', group = "color"))

hc

Spline : Ligne avec interpolation polynomiale

hc <- df2 %>% 
  hchart('areaspline', hcaes(x = 'cut', y = 'n', group = "color"))

hc