R ggplot minimal working examples for dashR?

[heoa]

I want a collection of interactive minimal working examples of using ggplot with dashR. Thank you.

[heoa]

I start collecting here some demos about using ggplot with dashR.

Categorial selector

#71 (comment)

Timeseries starting time selector with slider

library(data.table)
library(dash)
library(plotly)
library(dashHtmlComponents)
library(dashCoreComponents)
library(ggthemes)

app <- Dash$new(external_stylesheets = "https://codepen.io/chriddyp/pen/bWLwgP.css")

app$layout(
  htmlDiv(list(
    htmlDiv(list(
      htmlH3("Plotly.js importing test using BOD data")
    ),
    className = 'row'),
    htmlDiv(list(
      dccSlider(id   = 'starting-time-slider',min  = 1,max  = 7,step = 1,value= 1)),
      className = 'row'),
    htmlDiv(list(
      htmlH4('Time selector', className = 'six columns')
    ),
    className = 'row'),
    htmlDiv(list(
      htmlDiv(
        id = 'div-ts',
        className = 'six columns')), 
      className='row')
  )
  )
)

app$callback(output=list(id='div-ts', property='children'),
             params=list(
               input(id='starting-time-slider', property='value')),
             function(StartTime)
             {
               subdata <- BOD[BOD$Time>StartTime,]                 
               ggts <- ggplot(subdata) + 
                 aes(x=Time, y=demand) + geom_point() + geom_smooth() + theme_economist()
               dccGraph(id = 'graph-ts', figure = ggplotly(ggts))
             }
)

app$run_server()

#71 (comment)

[rpkyle]

Assuming that the original example was helpful for answering your initial question, I'm planning to close this issue in 48 hours unless there are any remaining items to resolve. Thanks!