R Shiny Highcharter - 如何使用hc_rangeSelector（）

Question

我正在使用highcharter软件包在R-Shiny项目上绘制一个金融日内时间系列。我正在使用以下代码作为服务器部分以获取输出（请注意，xtsPrices（）是一个返回xts日内时间系列的函数）：

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环境中指定它们，如{jcase case in { {3}}。特别是 - 因为它是一个日内时间 - 系列 - 我需要按钮，如“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