waterfall-demo.R

library(magrittr)
library(dplyr)
library(highcharter)
library(shiny)

path <- 'C:/workspace/waterfall/waterfall.csv'
get_waterfall <- function(path) {
    colors <- c("#d35400", "#2980b9", "#2ecc71", "#f1c40f", "#2c3e50", "#7f8c8d")
    path <- 'C:/workspace/waterfall/waterfall.csv'
    df <- read.csv(path, stringsAsFactors = FALSE)
    df <- df %>% mutate(name = paste(YearMonth, status),
                        color = rep(colors, length.out = nrow(df)),
                        y = value) %>%
        select(name, y, color)
    highchart() %>%
        hc_title(text = 'waterfall', style = list(fontSize = "15px")) %>% 
        hc_chart(type = 'waterfall') %>% 
        hc_xAxis(categories = df$name) %>% 
        hc_add_series(df, name = 'series name', showInLegend = TRUE) 
}

# Define the UI
ui <- bootstrapPage(
    highchartOutput('QtyLeaksOpenClose_plot')
)


# Define the server code
server <- function(input, output) {
    output$QtyLeaksOpenClose_plot <- renderHighchart({
        get_waterfall(path)
    })
}

# Return a Shiny app object
shinyApp(ui = ui, server = server)