Vertikalbereich Slider in Plotly Zeitreihe?

Question

Zum Beispiel, reproduzieren, indem Sie:

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 

Nun ist diese Handlung nicht vertikalen Schieber/Bereichswahlschalter hat wie plotly Scatterplots haben (sagen auf einen Preis und Zeitbereich zu vergrößern, anstatt nur einen Zeitbereich wie jetzt). Wie füge ich einen hinzu?

Answer 1

Dies kann durch Ändern von xaxis in layout erfolgen. Unter Verwendung Stück Code von 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") 
) 
) 

und zur Ergänzung

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 

fügt vertikale Schieberegler/Bereichswähler.