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