问题描述
我正在将 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)