Library ( plotly ) date = c ( as.Date ( "" ), as.Date ( "" ), as.Date ( "" ), as.Date ( "" ), as.Date ( "" ), as.Date ( "" )) value = c ( 1, 2, 3, 1, 2, 3 ) df = ame ( date, value ) fig % add_trace ( df, x = ~ date, y = ~ value, type = 'scatter', mode = 'lines+markers', name = "Raw Data", marker = list ( symbol = "star" )) %>% add_trace ( df, x = ~ date, y = ~ value, type = 'scatter', mode = 'lines+markers', name = "Start-aligned", xperiod = "M1", xperiodalignment = "start" ) %>% add_trace ( df, x = ~ date, y = ~ value, type = 'scatter', mode = 'lines+markers', name = "Middle-aligned", xperiod = "M1", xperiodalignment = "middle" ) %>% add_trace ( df, x = ~ date, y = ~ value, type = 'scatter', mode = 'lines+markers', name = "End-aligned", xperiod = "M1", xperiodalignment = "end" ) %>% add_trace ( df, x = ~ date, y = ~ value, type = 'bar', name = "Middle-aligned" ) fig % layout ( xaxis = list ( zerolinecolor = '#ffff', zerolinewidth = 2, gridcolor = 'ffff' ), yaxis = list ( zerolinecolor = '#ffff', zerolinewidth = 2, gridcolor = 'ffff' ), plot_bgcolor = '#e5ecf6', width = 900 ) fig Library ( tidyquant ) library ( plotly ) tickers = c ( "GOOG", "AAPL", "AMZN", "FB", "NFLX", "MSFT" ) for ( i in tickers ) stock % add_trace ( x = ~ Dates, y = ~ GOOG, name = 'GOOG' ) %>% add_trace ( x = ~ Dates, y = ~ AAPL, name = 'AAPL' ) %>% add_trace ( x = ~ Dates, y = ~ AMZN, name = 'AMZN' ) %>% add_trace ( x = ~ Dates, y = ~ FB, name = 'FB' ) %>% add_trace ( x = ~ Dates, y = ~ NFLX, name = 'NFLX' ) %>% add_trace ( x = ~ Dates, y = ~ MSFT, name = 'MSFT' ) %>% layout ( title = 'custom tick labels with ticklabelmode="period"', legend = list ( title = list ( text = 'variable' )), xaxis = list ( dtick = "M1", tickformat = "%b\n%Y", ticklabelmode = "period" ), width = 1000 ) options ( warn = -1 ) fig % layout ( xaxis = list ( zerolinecolor = '#ffff', zerolinewidth = 2, gridcolor = 'ffff' ), yaxis = list ( zerolinecolor = '#ffff', zerolinewidth = 2, gridcolor = 'ffff' ), plot_bgcolor = '#e5ecf6' ) fig
0 kommentar(er)
