Cement shiny app - Developing Data Products Course project/Data science specialization

It is known, that the consumption per capita in any country is an indicatior of wealth and development of the country itself. For this, it's important to know how the consumption of this material has evolved over the years in Colombia, and also how the industry is answering this demand by the increasing of the production.
In the order of this ideas, the app objective is to give an overview of the production and demand of grey cement in Colombia and how it has evolved over the last years. More information of the statistics used is here.

To get an idea of what will you find in the app, here is embeded the plot of the demand

g <- ggplot(cement_demand)+
      geom_line(aes(x = Date, y = Production, colour = "Production"))+        
      geom_line(aes(x = Date, y = National.dispatch, colour = "Demand"))+
      scale_color_manual(name = "Notation",values = c(Production="firebrick2",
                                                      Demand="dodgerblue"))+
      ggtitle("Cement Production and Demand in Colombia")+
      labs(x = "Date",y = "Tons")+
      theme(plot.title = element_text(hjust = 0.5, size = 15),
            axis.text.x = element_text(size = 15),
            axis.text.y = element_text(angle = 30,size = 15))

This app contain 3 main tabs:

• The first tab is to visualize the dataset, there you can view production and demand over the last years, and the date that the data was taken from
• The second tab is to visualize the time series of the production and demand of grey cement
• The third tab contain two subtabs, one to fitting a regression model to the time serie (linear, squared, and cubic one) and the second subtab is for visualizing the summary statistics of each model over the demand and production.

The link to the app is this
Further information of the code used go to the github page