R Shiny App HighCharter OHLC/Candlesticks 默认缩放周期

R Shiny App HighCharter OHLC/Candlesticks default zoom period

我正在使用 highcharter 库制作一个闪亮的应用程序来制作 XTS 的烛台图表。 server.R 中生成图表的代码如下(抱歉,此代码不可重现)默认情况下,生成的图表显示所有时期的数据。我希望将缩放级别更改为 1 个月。相当于在缩放选项中点击“1m”。我该怎么做?

library(highcharter)  
output$ohlcPlot <- renderHighchart({
    if (IsValidNSESymbol(input$x1StockCode)) {
      df <- loadStockPrices()
      
      highchart(type = "stock") %>%
        hc_add_series(data = df,
                      name = "OHLC",
                      type = "candlestick") %>%
        hc_colors(color = "red")
    }
  })

您可以添加 %>% hc_rangeSelector(selected = 0) 以将月份值保留为默认值,其中 0 是缩放选项的位置。

例如 AAPL 股票。

library(highcharter)

quantmod::getSymbols('AAPL',src = 'yahoo',from = "2013-01-01", to = "2017-12-31")
highchart(type = "stock") %>% 
  hc_add_series(data = AAPL, 
                name = "OHLC",
                type = "candlestick") %>%
  hc_colors(color = "red") %>%
  hc_rangeSelector(selected = 0)