Chargement des packages R réquis

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

Préparation des données

df <- data.frame(
        x = c(0, 1, 2, 3, 4),
        y = c(10, 19.4, 21.1, 14.4, 6.4),
        name = as.factor(c("grape", "olive", "guava", "nut", "pear"))
)
df

##   x    y  name
## 1 0 10.0 grape
## 2 1 19.4 olive
## 3 2 21.1 guava
## 4 3 14.4   nut
## 5 4  6.4  pear

Graphiques basiques

hc <- df %>%
  hchart(
    type = "column", hcaes(x = "name", y = "y"),
    color = "steelblue"
    )

hc

Ajouter des titres

hc_with_titles <- hc %>%
  hc_title(
    text = "Bar Plots",
    style = list(fontWeight = "bold", fontSize = "30px"),
    align = "center"
    ) %>% 
  hc_subtitle(
    text = "Fruit Consumption", 
    style = list(fontWeight = "bold"),
    align = "center"
    ) %>% 
  hc_credits(
    enabled = TRUE, 
    text = "Data Source: Datanovia;https://www.datanovia.com/en",
    style = list(fontSize = "10px")
    ) 

hc_with_titles

Modifier les étiquettes des axes x et y

 hc_with_axis_labs <- hc %>%
  hc_xAxis(title = list(text = "Fruits")) %>%
  hc_yAxis(title = list(text = "Consumption Value"))

 hc_with_axis_labs

Changer de thème

hc_theme <- hc %>% 
  hc_add_theme(hc_theme_economist())

hc_theme

hc_theme <- hc %>%
  hc_add_theme(hc_theme_monokai())

hc_theme