1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| hc<-hchart(donnees,"spline",hcaes(x=mois, y=moy, group=origine))%>%
hc_title(text = titre, align="center")%>%
hc_tooltip(
crosshairs = TRUE,
borderWidth = 5,
sort = TRUE,
table = TRUE)%>%
hc_yAxis(
title = analyse,
min = 0,
plotBands = list(
list(
from = 0,
to = 1000000,
color = "rgba(0, 200, 0, 0.1)",
label = list(text="texte 1")
),
list(
from = 1000000,
to = 1250000,
color = "rgba(0, 255, 255, 0.1)",
label = list(text="texte 2")
),
list(
from = 1250000,
to = 1500000,
color = "rgba(50, 0, 0, 0.1)",
label = list(text="texte 3")
),
list(
from = 1500000,
to = 2000000,
color = "rgba(250, 255, 0, 0.1)",
label = list(text="texte 4")
),
list(
from = 2000000,
to = 3000000,
color = "rgba(255, 150, 0, 0.1)",
label = list(text="texte 5")
),
list(
from = 3000000,
to = 5000000,
color = "rgba(250, 0, 0, 0.1)",
label = list(text="texte 6")
)
))%>%
hc_colors(c("#203d7d","#a0a0ed","#203d7e","#FF3333","#4EFF00"))%>%
hc_exporting(enabled = TRUE,filename = paste0('export - ',titre))%>%
hc_add_theme(hc_theme_economist()) |
Partager