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

Question

我正在使用 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")
    }
  })

Answer 1

您可以添加%>% 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)