R Shiny Highcharter - 如何使用hc_rangeSelector（）

Question

我正在使用highcharter軟件包在R-Shiny項目上繪制一個金融日內時間系列。 我正在使用以下代碼作為服務器部分以獲取輸出（請注意，xtsPrices（）是一個返回xts intraday time-serie的函數）：

output$plot <- renderHighchart({

y <- xtsPrices()

highchart() %>%
  hc_exporting(enabled = TRUE)%>%
  hc_add_series_ohlc(y) %>% 
  hc_add_theme(hc_theme_538(colors = c("red", "blue", "green"),
                            chart = list(backgroundColor = "white") ))
})

我在文檔中讀到，為了個性化縮放按鈕，我必須處理hc_rangeSelector（）函數，但我不明白如何在這個R-Shiny環境中指定它們，如Highstock API中的javascript案例所示。 特別是 - 因為它是一個日內時間系列 - 我需要按鈕，如“20分鍾”，“1小時”，“3小時”，“1D”等。

Answer 1

對於日內數據，您可以執行以下操作：

hc <- highchart() %>% 
  hc_exporting(enabled = TRUE) %>%
  hc_add_series_ohlc(y, yAxis = 0, name = "Sample Data", id = "T1",smoothed=TRUE,forced=TRUE,groupPixelWidth=24) %>% 
  hc_rangeSelector( buttons = list(
    list(type = 'all', text = 'All'),
    list(type = 'hour', count = 2, text = '2h'),
    list(type = 'hour', count = 1, text = '1h'),
    list(type = 'minute', count = 30, text = '30m'),
    list(type = 'minute', count = 10, text = '10m'),
    list(type = 'minute', count = 5, text = '5m')
  )) %>% 
  hc_add_theme(hc_theme_538(colors = c("red", "blue", "green"),chart = list(backgroundColor = "white") ))
hc