R - highcharter - выборочные легенды на дисплее - PullRequest
Новая
       35

R - highcharter - выборочные легенды на дисплее

0 голосов
/ 04 июня 2019

Я не уверен, что это можно сделать в старшей диаграмме, однако у меня есть сценарий, где у меня есть 7 серий, из которых по умолчанию мне нужно отображать только 3, однако оставшиеся 4 должны быть серыми, но присутствовать, пользовательможно нажать и выбрать при необходимости.

Итак, как мы можем это сделать?Все предложения приветствуются.Я провел некоторое исследование, однако я не смог получить никаких лидов.

Спасибо! 

hc <- highchart(type = "stock") %>% 
    hc_title(text = paste0("<span style=\"color:#000000\">", prod_line, ", ", sku , " at ", cust_group ,  "</span>")) %>%
    hc_subtitle(text = paste0("<span style=\"color:#000000\">",  prod_mktg_name, "</span>")) %>%
    hc_yAxis_multiples(yaxis) %>%
    hc_add_series(yAxis = 0, name = "Retail Price", candle_data, type = "candlestick", color = "white") %>%
    hc_add_series(yAxis = 0, name = "COGS($)" , data = my_xts_data$COGS_dollar, color = "blue") %>% 
    hc_add_series(yAxis = 0, name = "MSRP", data = my_xts_data$MSRP, color = "black") %>%
    hc_add_series(yAxis = 0, name = "Sell In Price", data = my_xts_data$SI_price, color = "orange") %>%
    hc_add_series(yAxis = 1, name = "Sell In Units", data = my_xts_data$SI_units, color = "orange", type = "column") %>%
    hc_add_series(yAxis = 1, name = "Channel Inv Units", data = my_xts_data$CI_units, color = "gray", type = "column") %>%
    hc_add_series(yAxis = 1, name = "Sell Thru Units", data = my_xts_data$ST_units, color = "black", type = "column") %>%
    hc_legend(enabled = TRUE) %>%
    hc_exporting(enabled = TRUE) %>%
    hc_tooltip(shared = TRUE) 

hc

1 Ответ

2 голосов
/ 04 июня 2019

Вы можете добавить аргумент 'visible = FALSE' к функциям hc_add_series

https://api.highcharts.com/highcharts/plotOptions.series.visible

Пример Highcharter изменен с http://jkunst.com/highcharter/highstock.html ниже 

library("quantmod")

usdjpy <- getSymbols("USD/JPY", src = "oanda", auto.assign = FALSE)
eurkpw <- getSymbols("EUR/KPW", src = "oanda", auto.assign = FALSE)

hc <- highchart(type = "stock") %>% 
  hc_title(text = "Charting some Symbols") %>% 
  hc_subtitle(text = "Data extracted using quantmod package") %>% 
  hc_add_series(usdjpy, id = "usdjpy") %>% 
  hc_add_series(eurkpw, id = "eurkpw", visible = FALSE) %>%
  hc_legend(enabled = TRUE)
...