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

如何解决R Shiny App HighCharter OHLC/烛台默认缩放周期

我正在将 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)