Plotly時系列の垂直範囲スライダ？

Question

例えば、実行することにより、再現：

library(plotly) 
library(quantmod) 
setDefaults(getSymbols,src='google') 
getSymbols('AAPL',from="2010-01-01",to=Sys.Date()) 
df <- data.frame(Date = index(AAPL), coredata(AAPL)) 
colnames(df) 

p <- df %>% 
    plot_ly(x = ~Date, type="candlestick", 
      open = ~AAPL.Open, close = ~AAPL.Close, 
      high = ~AAPL.High, low = ~AAPL.Low) %>% 
    layout(title = "Basic Candlestick Chart") 
p 

今、このプロットはplotly散布図のような垂直スライダー/レンジセレクタを持っていません（というだけの時間範囲よりも価格や時間帯にズームすると言うん今のように）。どのようにそれに1つを追加するには？

Answer 1

xaxisをlayoutに変更することでこれを行うことができます。 exampleからのコードの一部使用：

rangeselectorlist = list(
    x = 0, y = 0.9, 
    bgcolor = "#0099cc", 
    font = list(color = "white"), 

    buttons = list(
    list(count = 1, label = "reset", step = "all"), 
    list(count = 1, label = "1yr", step = "year", stepmode = "backward"), 
    list(count = 3, label = "3 mo", step = "month", stepmode = "backward"), 
    list(count = 1, label = "1 mo", step = "month", stepmode = "backward"), 
    list(step = "all") 
) 
) 

と

p <- df %>% 
    plot_ly(x = ~Date, type="candlestick", 
      open = ~AAPL.Open, close = ~AAPL.Close, 
      high = ~AAPL.High, low = ~AAPL.Low) %>% 
    layout(title = "Basic Candlestick Chart", 
    xaxis = list(rangeslider = list(visible = F), 
    rangeselector = rangeselectorlist)) 
p 

に追加する垂直スライダー/レンジセレクタを追加します。