R highcharter Legende basiert auf Punkt Farbe

Question

Ich habe Codes und Handlung unter

tmp <- data.frame(x = 1:5, y = rnorm(5), 
color = c("#00FF00", "#FF0000", "#00FF00", "#ffa500", "#FF0000")) 

highchart() %>% 
    hc_add_series(data= tmp, hcaes(x = x, y = y, color = color), type = "line") 

Für die Legende, zur Zeit ist es „Serie 1“ ist, möchte ich es Punkt Legende für jeden Punkt machen Farbe, die grün, orange und rot ist. Und auch den Legendentext anpassen.

Legend sollten wie folgt aussehen:

(roter Punkt) 20% -Quantil (grüner Punkt) 40% -Quantil (orange Punkt) 80% -Quantil

Answer 1

mit künstlicher (leer) Serie der Legendeneinträge für die Erstellung von:

highchart() %>% 

    # add the series and exclude it from the legend 
    hc_add_series(data = tmp, type = "line", showInLegend = F) %>% 

    # add three empty series for the legend entries. Change color and marker symbol 
    hc_add_series(data = data.frame(), name = "20% Quantile", color = "#FF0000", marker = list(symbol = "circle"), type = "scatter") %>% 
    hc_add_series(data = data.frame(), name = "40% Quantile", color = "#00FF00", marker = list(symbol = "circle"), type = "scatter") %>% 
    hc_add_series(data = data.frame(), name = "80% Quantile", color = "#ffa500", marker = list(symbol = "circle"), type = "scatter")