R Highcharter легенда, основанная на цвете точки

Question

У меня есть коды и сюжет ниже

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")

Что касается легенды, в настоящее время это "Серия 1", я хочу сделать ее точечной легендой для каждого цвета точки, а именно: зеленого, оранжевого и красного. А также настроить текст легенды.

Легенда должна выглядеть так:

(красная точка) 20% квантиль (зеленая точка) 40% квантиль (оранжевая точка) 80% квантиль

Answer 1

Использование искусственных (пустых) серий для создания записей легенды:

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")