R 中的 Highcharter setExtremes 函数

Question

我试图在对应于用户按下按钮的时间序列股票图表上设置极端。 这是细分：

1. 用户点击图表顶部的按钮（我已经编辑了通常位于顶部的“全部”、“1M”、“3M”按钮）

2. 单击该按钮时，xAxis（2 个月）上的自定义区域会放大。 例如，从 10 月 1 日到 12 月。 现在，缩放到图形的末尾。

它与下面的链接非常相​​似。

X 轴设置极值

我现在按钮的 R 代码如下：

hc_rangeSelector(buttons=list(list(type='month', text='New', count=2)))

这说我正在寻找一个月间隔缩放，文本是“新”，它显示 2 个月。 我已经看到 setExtremes 是我正在寻找的函数，但我还没有看到它使用 R 实现。

Answer 1

您可以在Highcharter chart.events.load 选项中放置一个 JavaScript 函数。 使用Renderer，您可以添加一个按钮，该按钮将在单击时使用setExtremes函数。

JSFiddle中的Demo（没有Highcharter和`R，数据不同，但是按钮的功能是一样的）： http : //jsfiddle.net/e69eLm6q/

在R运行的代码：

library("quantmod")

usdjpy <- getSymbols("USD/JPY", src = "oanda", auto.assign = FALSE)
eurkpw <- getSymbols("EUR/KPW", src = "oanda", auto.assign = FALSE)

hc <- highchart(type = "stock") %>% 
  hc_title(text = "Charting some Symbols") %>% 
  hc_add_series(data = usdjpy, id = "usdjpy", pointInterval = 36000000) %>% 
  hc_add_series(data = eurkpw, id = "eurkpw", pointInterval = 36000000) %>%
  hc_rangeSelector(buttons=list(list(type='month', text='New', count=2))) %>%
  hc_chart(
    events = list(
        load = JS("function(){
            var chart = this;

            chart.renderer.button('do stuff',200, 100)
                .attr({
                    zIndex: 3
                })
                .on('click', function () {
                    chart.xAxis[0].setExtremes(Date.UTC(1970, 4, 1), Date.UTC(1970, 6, 1));
                })
                .add();
        }")
    )
  )

hc