---
title: "Northern Ireland Local Authority Collected Waste Statistics"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    theme: cerulean
    source_code: embed
    navbar:
      - { title: "Cookies", href: "https://www.nisra.gov.uk/cookies", align: right }
      
---



  
```{r setup, message=F}

knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)

#LOAD PACKAGES
library(flexdashboard)
library(knitr)
library(crosstalk)
library(DT)
library(tidyverse)
library(plotly)
library(stringr)
library(reshape2)

# READ IN THE DATA
LACWMS <- read.csv("C:/Users/2333781/Documents/David/R/Waste/Quarterly Waste KPIs.csv", header = T, stringsAsFactors = F)

# TIDY THE DATA UP
kpis <- names(LACWMS)[c(5,7,9,12,14,17,21,22,23,27,28,29,30)]
LACWMSall <- melt(LACWMS, id=1:2)

LACWMSall$Council[LACWMSall$Council == "Antrim & Newtownabbey"] <- "Antrim and Newtownabbey"
LACWMSall$Council[LACWMSall$Council == "Ards & North Down"] <- "Ards and North Down"
LACWMSall$Council[LACWMSall$Council == "Armagh City, Banbridge & Craigavon"] <- "Armagh City, Banbridge and Craigavon"
LACWMSall$Council[LACWMSall$Council == "Causeway Coast & Glens"] <- "Causeway Coast and Glens"
LACWMSall$Council[LACWMSall$Council == "Derry City & Strabane"] <- "Derry City and Strabane"
LACWMSall$Council[LACWMSall$Council == "Fermanagh & Omagh"] <- "Fermanagh and Omagh"
LACWMSall$Council[LACWMSall$Council == "Lisburn & Castlereagh"] <- "Lisburn and Castlereagh"
LACWMSall$Council[LACWMSall$Council == "Mid & East Antrim"] <- "Mid and East Antrim"
LACWMSall$Council[LACWMSall$Council == "Newry, Mourne & Down"] <- "Newry, Mourne and Down"
LACWMSall$Council[LACWMSall$Council == "Antrim"] <- "Antrim"
LACWMSall$Council[LACWMSall$Council == "Ards"] <- "Ards"
LACWMSall$Council[LACWMSall$Council == "Armagh"] <- "Armagh"
LACWMSall$Council[LACWMSall$Council == "Ballymena"] <- "Ballymena"
LACWMSall$Council[LACWMSall$Council == "Ballymoney"] <- "Ballymoney"
LACWMSall$Council[LACWMSall$Council == "Banbridge"] <- "Banbridge"
LACWMSall$Council[LACWMSall$Council == "Belfast (pre April 2015)"] <- "Belfast (pre April 2015)"
LACWMSall$Council[LACWMSall$Council == "Carrickfergus"] <- "Carrickfergus"
LACWMSall$Council[LACWMSall$Council == "Castlereagh"] <- "Castlereagh"
LACWMSall$Council[LACWMSall$Council == "Cookstown"] <- "Cookstown"
LACWMSall$Council[LACWMSall$Council == "Craigavon"] <- "Craigavon"
LACWMSall$Council[LACWMSall$Council == "Derry"] <- "Derry"
LACWMSall$Council[LACWMSall$Council == "Down"] <- "Down"
LACWMSall$Council[LACWMSall$Council == "Dungannon"] <- "Dungannon"
LACWMSall$Council[LACWMSall$Council == "Fermanagh"] <- "Fermanagh"
LACWMSall$Council[LACWMSall$Council == "Larne"] <- "Larne"
LACWMSall$Council[LACWMSall$Council == "Limavady"] <- "Limavady"
LACWMSall$Council[LACWMSall$Council == "Magherafelt"] <- "Magherafelt"
LACWMSall$Council[LACWMSall$Council == "Moyle"] <- "Moyle"
LACWMSall$Council[LACWMSall$Council == "Newry and Mourne"] <- "Newry and Mourne"
LACWMSall$Council[LACWMSall$Council == "North Down"] <- "North Down"
LACWMSall$Council[LACWMSall$Council == "Omagh"] <- "Omagh"
LACWMSall$Council[LACWMSall$Council == "Strabane"] <- "Strabane"



# format variables

LACWMSall$Council  <- factor(LACWMSall$Council)
LACWMSall$variable <- factor(LACWMSall$variable)
LACWMSall$Year <- factor(LACWMSall$Year)
LACWMSall$value <- as.numeric(LACWMSall$value)


# CREATE FINAL DATAFRAME FOR SHARING
dat <- 
  LACWMSall %>%
  arrange(desc(Year))

# CREATE A COPY OF dat FOR GRAPHING THAT DOESN'T USE big.mark ","
dat_graph <- dat
dat$value <- sapply(dat$value, format, big.mark = ",")

# CROSSTALK
LACWMSkpis <-
  LACWMSall %>%
  filter(variable %in% kpis) %>%
  select(Year, Council, variable, value) 

shared_dat <- SharedData$new(LACWMSkpis)
sd_df <- SharedData$new(LACWMSkpis, group = shared_dat$groupName())


# CREATE DATAFRAMES TO USE WITH PLOTLY

tidy_dat <- 
  dat_graph

# MAKE SOME OBJECTS FOR VALUEBOXES
# CONVERT DATE STRINGS TO NUMERICS

yrs <- as.numeric(substr(LACWMSall$Year, 1, 4))

this.year <- max(yrs)
this.year.finance <- paste0(this.year, "/", this.year + 1 - 2000)
last.year.finance <- paste0(this.year-1, "/", this.year - 2000)

# CREATE DATAFRAMES FOR CHARTS

###############################################
################### KPIs ######################
###############################################

LACRR <- 
  LACWMSall %>%
  filter(variable == "LACRR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

LACERR <- 
  LACWMSall %>%
  filter(variable == "LACERR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

LACLR <- 
  LACWMSall %>%
  filter(variable == "LACLR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

HHRR <- 
  LACWMSall %>%
  filter(variable == "HHRR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

HHLR <- 
   LACWMSall %>%
  filter(variable == "HHLR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

WFHRR <- 
   LACWMSall %>%
  filter(variable == "WFHRR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

LACRUR <- 
   LACWMSall %>%
  filter(variable == "LACRUR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

LACDRR <- 
   LACWMSall %>%
  filter(variable == "LACDRR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

LACCR <- 
   LACWMSall %>%
  filter(variable == "LACCR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

HHRUR <- 
   LACWMSall %>%
  filter(variable == "HHRUR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

HHDRR <- 
   LACWMSall %>%
  filter(variable == "HHDRR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

HHCR <- 
   LACWMSall %>%
  filter(variable == "HHCR") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

BIO <- 
   LACWMSall %>%
  filter(variable == "BIO") %>%
  select(Year, Council, value) %>%
  spread(Council, value)

###############################################
################# Councils ####################
###############################################

NI <- 
  tidy_dat %>%
  filter(Council == "Northern Ireland") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

AN <- 
  tidy_dat %>%
  filter(Council == "Antrim and Newtownabbey") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

AND <- 
  tidy_dat %>%
  filter(Council == "Ards and North Down") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

ABC <- 
  tidy_dat %>%
  filter(Council == "Armagh City, Banbridge and Craigavon") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Belfast <- 
  tidy_dat %>%
  filter(Council == "Belfast") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

CCG <- 
  tidy_dat %>%
  filter(Council == "Causeway Coast and Glens") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

DCS <- 
  tidy_dat %>%
  filter(Council == "Derry City and Strabane") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

FO <- 
  tidy_dat %>%
  filter(Council == "Fermanagh and Omagh") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

LC <- 
  tidy_dat %>%
  filter(Council == "Lisburn and Castlereagh") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

MEA <- 
  tidy_dat %>%
  filter(Council == "Mid and East Antrim") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

MU <- 
  tidy_dat %>%
  filter(Council == "Mid Ulster") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

NMD <- 
  tidy_dat %>%
  filter(Council == "Newry, Mourne and Down") %>%
  select(Year, variable, value) %>%
  spread(variable, value)


Antrim <- 
  tidy_dat %>%
  filter(Council == "Antrim") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Ards <- 
  tidy_dat %>%
  filter(Council == "Ards") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Armagh <- 
  tidy_dat %>%
  filter(Council == "Armagh") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Ballymena <- 
  tidy_dat %>%
  filter(Council == "Ballymena") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Ballymoney <- 
  tidy_dat %>%
  filter(Council == "Ballymoney") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Banbridge <- 
  tidy_dat %>%
  filter(Council == "Banbridge") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

BelfastPreApril2015 <- 
  tidy_dat %>%
  filter(Council == "Belfast (pre April 2015)") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Carrickfergus <- 
  tidy_dat %>%
  filter(Council == "Carrickfergus") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Castlereagh <- 
  tidy_dat %>%
  filter(Council == "Castlereagh") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Coleraine <- 
  tidy_dat %>%
  filter(Council == "Coleraine") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Cookstown <- 
  tidy_dat %>%
  filter(Council == "Cookstown") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Craigavon <- 
  tidy_dat %>%
  filter(Council == "Craigavon") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Derry <- 
  tidy_dat %>%
  filter(Council == "Derry") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Down <- 
  tidy_dat %>%
  filter(Council == "Down") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Dungannon <- 
  tidy_dat %>%
  filter(Council == "Dungannon") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Fermanagh <- 
  tidy_dat %>%
  filter(Council == "Fermanagh") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Larne <- 
  tidy_dat %>%
  filter(Council == "Larne") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Limavady <- 
  tidy_dat %>%
  filter(Council == "Limavady") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Lisburn <- 
  tidy_dat %>%
  filter(Council == "Lisburn") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Magherafelt <- 
  tidy_dat %>%
  filter(Council == "Magherafelt") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Moyle <- 
  tidy_dat %>%
  filter(Council == "Moyle") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

NewryandMourne <- 
  tidy_dat %>%
  filter(Council == "Newry and Mourne") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Newtownabbey <- 
  tidy_dat %>%
  filter(Council == "Newtownabbey") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

NorthDown <- 
  tidy_dat %>%
  filter(Council == "North Down") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Omagh <- 
  tidy_dat %>%
  filter(Council == "Omagh") %>%
  select(Year, variable, value) %>%
  spread(variable, value)

Strabane <- 
  tidy_dat %>%
  filter(Council == "Strabane") %>%
  select(Year, variable, value) %>%
  spread(variable, value)


```




```{r logo, out.width = "175px", echo=FALSE, fig.align='centre'} 

```


Tonnes Collected {data-icon="fa-chart-line"}
===========================================================



**These charts are based on the Northern Ireland local authority collected municipal waste management statistics time series dataset, available from **

**https://www.daera-ni.gov.uk/articles/northern-ireland-local-authority-collected-municipal-waste-management-statistics**

Row {.tabset .tabset-fade}
-------------------------------------

### **Waste collected Northern Ireland**

```{r All Waste NIQ}

plot_ly(NI, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~NI$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~NI$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~NI$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~NI$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~NI$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~NI$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~NI$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~NI$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~NI$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~NI$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~NI$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~NI$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~NI$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~NI$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~NI$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%
  
  
  
  
  

  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 300000),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))

```

### **Antrim and Newtownabbey**

```{r All Waste AN}

plot_ly(AN, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~AN$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~AN$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~AN$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~AN$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~AN$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~AN$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~AN$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~AN$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~AN$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~AN$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~AN$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~AN$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~AN$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~AN$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~AN$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%


  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 30000),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```

### **Ards and North Down**

```{r All Waste AND}

plot_ly(AND, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~AND$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~AND$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~AND$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~AND$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~AND$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~AND$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~AND$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~AND$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~AND$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~AND$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~AND$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~AND$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~AND$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~AND$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~AND$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%

  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 30000),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```

### **Armagh City, Banbridge and Craigavon**

```{r All Waste ABC}

plot_ly(ABC, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~ABC$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~ABC$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~ABC$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~ABC$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~ABC$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~ABC$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~ABC$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~ABC$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~ABC$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~ABC$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~ABC$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~ABC$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~ABC$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~ABC$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~ABC$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%

  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 30000),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```


### **Belfast**

```{r All Waste Belfast}

plot_ly(Belfast, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~Belfast$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~Belfast$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~Belfast$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~Belfast$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~Belfast$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~Belfast$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~Belfast$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~Belfast$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~Belfast$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~Belfast$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~Belfast$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~Belfast$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~Belfast$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~Belfast$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~Belfast$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%

  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 50000),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```


### **Causeway Coast and Glens**

```{r All Waste CCG}

plot_ly(CCG, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~CCG$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~CCG$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~CCG$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~CCG$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~CCG$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~CCG$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~CCG$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~CCG$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~CCG$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~CCG$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~CCG$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~CCG$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~CCG$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~CCG$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~CCG$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%

  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 25000),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```


### **Derry City and Strabane**

```{r All Waste DCS}

plot_ly(DCS, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~DCS$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~DCS$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~DCS$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~DCS$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~DCS$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~DCS$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~DCS$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~DCS$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~DCS$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~DCS$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~DCS$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~DCS$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~DCS$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~DCS$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~DCS$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%

  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 25000),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```


### **Fermanagh and Omagh**

```{r All Waste FO}

plot_ly(FO, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~FO$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~FO$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~FO$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~FO$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~FO$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~FO$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~FO$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~FO$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~FO$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~FO$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~FO$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~FO$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~FO$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~FO$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~FO$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 25000),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```


### **Lisburn and Castlereagh**

```{r All Waste LC}

plot_ly(LC, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~LC$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~LC$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~LC$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~LC$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~LC$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~LC$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~LC$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~LC$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~LC$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~LC$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~LC$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~LC$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~LC$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~LC$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~LC$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      range = c(0, 25000),
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```


### **Mid and East Antrim**

```{r All Waste MEA}

plot_ly(MEA, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~MEA$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~MEA$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~MEA$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~MEA$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~MEA$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~MEA$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~MEA$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~MEA$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~MEA$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~MEA$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~MEA$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~MEA$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~MEA$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~MEA$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~MEA$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      range = c(0, 25000),
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```


### **Mid Ulster**

```{r All Waste MU}

plot_ly(MU, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~MU$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~MU$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~MU$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~MU$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~MU$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~MU$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~MU$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~MU$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~MU$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~MU$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~MU$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~MU$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~MU$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~MU$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~MU$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      range = c(0, 25000),
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```


### **Newry, Mourne and Down**

```{r All Waste NMD}

plot_ly(NMD, x = ~Year, y = ~ LACA, name = 'LAC waste arisings', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(150, 150, 150)', width = 2.5)) %>%  
  add_trace(y = ~NMD$LACR, name = 'LAC waste recycling', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~NMD$LACRU, name = 'LAC waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~NMD$LACDR, name = 'LAC waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dash')) %>%
  add_trace(y = ~NMD$LACC, name = 'LAC waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)', dash = 'dot')) %>%
  add_trace(y = ~NMD$LACER, name = 'LAC waste energy recovery', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~NMD$LACL, name = 'LAC waste landfill', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~NMD$BIO, name = 'Biodegradable LAC waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)', dash = 'dot')) %>%
  add_trace(y = ~NMD$HHA, name = 'Household waste arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>% 
  add_trace(y = ~NMD$HHR, name = 'Household waste recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~NMD$HHRU, name = 'Household waste reuse', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', width = 5, dash = 'dot')) %>%
  add_trace(y = ~NMD$HHDR, name = 'Household waste dry recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dash')) %>%
  add_trace(y = ~NMD$HHC, name = 'Household waste composting', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)', dash = 'dot')) %>%
  add_trace(y = ~NMD$HHL, name = 'Household waste landfill', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~NMD$WFHA, name = 'Waste from households arisings', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(189, 189, 189)')) %>%
  add_trace(y = ~NMD$WFHR, name = 'Waste from households recycling', visible = 'legendonly', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      range = c(0, 25000),
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```





Key Indicators {data-icon="fa-chart-line"}
===========================================================

**These charts are based on the Northern Ireland local authority collected municipal waste management statistics time series dataset, available from **

**https://www.daera-ni.gov.uk/articles/northern-ireland-local-authority-collected-municipal-waste-management-statistics**


Row {.tabset .tabset-fade}
-------------------------------------


### **Waste Key Indicators NI**

```{r All KPIs NI}

plot_ly(LACRR, x = ~Year, y = ~`Northern Ireland`, name = 'LAC Recycling Rate', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(color = 'rgb(49, 163, 84)', width = 2.5)) %>% 
  add_trace(y = ~LACERR$`Northern Ireland`, name = 'LAC Energy Recovery Rate', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~LACLR$`Northern Ireland`, name = 'LAC Landfill Rate', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~HHRR$`Northern Ireland`, name = 'Household Recycling Rate', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>% 
  add_trace(y = ~HHLR$`Northern Ireland`, name = 'Household Landfill Rate', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>% 
  add_trace(y = ~WFHRR$`Northern Ireland`, name = 'Waste from Households Recycling Rate', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%
  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```

### **LAC Recycling Rate by council**

```{r LAC Recycling Rate by council}

plot_ly(LACRR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5)) %>% 
  add_trace(y = ~LACRR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~LACRR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~LACRR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~LACRR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~LACRR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~LACRR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~LACRR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~LACRR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~LACRR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~LACRR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~LACRR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(49, 163, 84)')) %>%
  add_trace(y = ~LACRR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACRR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```

### **LAC Energy Recovery Rate by council**

```{r LAC Energy Recovery Rate by council}

plot_ly(LACERR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5)) %>% 
  add_trace(y = ~LACERR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~LACERR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~LACERR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~LACERR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~LACERR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~LACERR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~LACERR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~LACERR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~LACERR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~LACERR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~LACERR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(49, 130, 189)')) %>%
  add_trace(y = ~LACERR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACERR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```

### **LAC Landfill Rate by council**

```{r LAC Landfill Rate by council}

plot_ly(LACLR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5)) %>% 
  add_trace(y = ~LACLR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~LACLR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~LACLR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~LACLR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~LACLR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~LACLR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~LACLR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~LACLR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~LACLR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~LACLR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~LACLR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(152, 72, 7)')) %>%
  add_trace(y = ~LACLR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACLR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```

### **Household Recycling Rate by council**

```{r Household Recycling Rate by council}

plot_ly(HHRR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5)) %>% 
  add_trace(y = ~HHRR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~HHRR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~HHRR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~HHRR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~HHRR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~HHRR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~HHRR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~HHRR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~HHRR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~HHRR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~HHRR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~HHRR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHRR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```

### **Household Landfill Rate by council**

```{r Household Landfill Rate by council}

plot_ly(HHLR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5)) %>% 
  add_trace(y = ~HHLR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~HHLR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~HHLR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~HHLR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~HHLR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~HHLR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~HHLR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~HHLR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~HHLR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~HHLR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~HHLR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(254, 153, 41)')) %>%
  add_trace(y = ~HHLR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHLR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))



```

### **Waste from Households Recycling Rate by council**

```{r Waste from Households Recycling Rate by council}

plot_ly(WFHRR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5)) %>% 
  add_trace(y = ~WFHRR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~WFHRR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~WFHRR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~WFHRR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~WFHRR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~WFHRR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~WFHRR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~WFHRR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~WFHRR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~WFHRR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~WFHRR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(75, 201, 114)')) %>%
  add_trace(y = ~WFHRR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~WFHRR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


    layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))

```

### **LAC Dry Recycling Rate by council**

```{r LAC Dry Recycling Rate by council}

plot_ly(LACDRR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5, dash = 'dash')) %>% 
  add_trace(y = ~LACDRR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~LACDRR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~LACDRR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~LACDRR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~LACDRR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~LACDRR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~LACDRR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~LACDRR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~LACDRR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~LACDRR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~LACDRR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(49,163,84)')) %>%
  add_trace(y = ~LACDRR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACDRR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))

```


### **LAC Composting Rate by council**

```{r LAC Composting Rate by council}

plot_ly(LACCR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5, dash = 'dot')) %>% 
  add_trace(y = ~LACCR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~LACCR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~LACCR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~LACCR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~LACCR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~LACCR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~LACCR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~LACCR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~LACCR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~LACCR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~LACCR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(49,163,84)')) %>%
  add_trace(y = ~LACCR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~LACCR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))



```




### **Household Dry Recycling Rate by council**

```{r Household Dry Recycling Rate by council}

plot_ly(HHDRR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5, dash = 'dash')) %>% 
  add_trace(y = ~HHDRR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~HHDRR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~HHDRR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~HHDRR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~HHDRR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~HHDRR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~HHDRR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~HHDRR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~HHDRR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~HHDRR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~HHDRR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~HHDRR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHDRR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))

```


### **Household Composting Rate by council**

```{r Household Composting Rate by council}

plot_ly(HHCR, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5, dash = 'dot')) %>% 
  add_trace(y = ~HHCR$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~HHCR$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~HHCR$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~HHCR$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~HHCR$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~HHCR$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~HHCR$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~HHCR$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~HHCR$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~HHCR$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~HHCR$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(161, 217, 155)')) %>%
  add_trace(y = ~HHCR$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~HHCR$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Percentage",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 100),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))


```

### **Biodegradable LAC waste sent to landfill by council**

```{r Biodegradable LAC waste sent to landfill by council}


plot_ly(BIO, x = ~Year, y = ~`Antrim and Newtownabbey`, name = 'Antrim and Newtownabbey', type = 'scatter', mode = 'lines',
        visible = T, showlegend = TRUE, line = list(width = 2.5, dash = 'dot')) %>% 
  add_trace(y = ~BIO$`Ards and North Down`, name = 'Ards and North Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 0)')) %>%
  add_trace(y = ~BIO$`Armagh City, Banbridge and Craigavon`, name = 'Armagh City, Banbridge and Craigavon', mode = 'lines', visible = T, line = list(color = 'rgb(180, 176, 0)')) %>%
  add_trace(y = ~BIO$`Belfast`, name = 'Belfast', mode = 'lines', visible = T, line = list(color = 'rgb(86, 174, 0)')) %>%
  add_trace(y = ~BIO$`Causeway Coast and Glens`, name = 'Causeway Coast and Glens', mode = 'lines', visible = T, line = list(color = 'rgb(0, 204, 0)')) %>%
  add_trace(y = ~BIO$`Derry City and Strabane`, name = 'Derry City and Strabane', mode = 'lines', visible = T, line = list(color = 'rgb(255, 128, 0)')) %>%
  add_trace(y = ~BIO$`Fermanagh and Omagh`, name = 'Fermanagh and Omagh', mode = 'lines', visible = T, line = list(color = 'rgb(146, 194, 226)')) %>%
  add_trace(y = ~BIO$`Lisburn and Castlereagh`, name = 'Lisburn and Castlereagh', mode = 'lines', visible = T, line = list(color = 'rgb(0, 128, 255)')) %>%
  add_trace(y = ~BIO$`Mid and East Antrim`, name = 'Mid and East Antrim', mode = 'lines', visible = T, line = list(color = 'rgb(127, 0, 255)')) %>%
  add_trace(y = ~BIO$`Mid Ulster`, name = 'Mid Ulster', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 255)')) %>%
  add_trace(y = ~BIO$`Newry, Mourne and Down`, name = 'Newry, Mourne and Down', mode = 'lines', visible = T, line = list(color = 'rgb(255, 0, 127)')) %>%
  add_trace(y = ~BIO$`Northern Ireland`, name = 'NI Total', mode = 'lines', visible = T, line = list(color = 'rgb(254,153,41)')) %>%
  add_trace(y = ~BIO$`Antrim`, name = 'Antrim', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Ards`, name = 'Ards', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Armagh`, name = 'Armagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Ballymena`, name = 'Ballymena', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Ballymoney`, name = 'Ballymoney', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Banbridge`, name = 'Banbridge', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Belfast (pre April 2015)`, name = 'Belfast pre April 2015', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Carrickfergus`, name = 'Carrickfergus', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Castlereagh`, name = 'Castlereagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Coleraine`, name = 'Coleraine', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Cookstown`, name = 'Cookstown', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Craigavon`, name = 'Craigavon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Derry`, name = 'Derry', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Down`, name = 'Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Dungannon`, name = 'Dungannon', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Fermanagh`, name = 'Fermanagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Larne`, name = 'Larne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Limavady`, name = 'Limavady', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Lisburn`, name = 'Lisburn', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Magherafelt`, name = 'Magherafelt', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Moyle`, name = 'Moyle', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Newry and Mourne`, name = 'Newry and Mourne', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Newtownabbey`, name = 'Newtownabbey', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`North Down`, name = 'North Down', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Omagh`, name = 'Omagh', mode = 'lines', visible = 'legendonly') %>%
  add_trace(y = ~BIO$`Strabane`, name = 'Strabane', mode = 'lines', visible = 'legendonly') %>%
  


  
  
  
  layout(title = "",
         paper_bgcolor = 'rgb(255,255,255)', plot_bgcolor = 'rgb(255,255,255)', hovermode = "compare",
         xaxis = list(title = "",
                      gridcolor = 'rgb(255,255,255)',
                      showgrid = FALSE,
                      showline = TRUE,
                      dtick = 1,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      zeroline = FALSE),
         yaxis = list(title = "Tonnes",
                      titlefont = list(size = 11),
                      gridcolor = 'rgb(229,229,299)',
                      range = c(0, 80000),
                      showgrid = TRUE,
                      showline = TRUE,
                      showticklabels = TRUE,
                      tickcolor = 'rgb(127,127,127)',
                      ticks = 'outside',
                      tickformat = ",",
                      zeroline = FALSE))

```



Reader Information & Contact Details {data-icon="fa-chart-line"}
===========================================================

**Reader Information**


*This dashboard presents finalised and validated information on the quantities of local authority collected (LAC) municipal waste collected and managed in Northern Ireland showing trend data from 2006/07 onwards. It provides information on the quantities and rates of local authority collected municipal waste arising, sent for preparing for reuse, dry recycling, composting, energy recovery and sent to landfill. Some of these measurements are key performance indicators (KPIs). These are used to assess progress towards achieving waste strategy targets.*

*With the reform of local government in NI, the number of District councils were reduced from 26 to 11 councils areas from 1 April 2015. Both council designations are shown on the dashboard. Quarterly reports presenting provisional estimates for local authority collected municipal waste management statistics are published on an 11 council basis and are available on the DAERA website:  https://www.daera-ni.gov.uk/articles/northern-ireland-local-authority-collected-municipal-waste-management-statistics*


**Data Source**


*The information contained in this dashboard has been sourced from WasteDataFlow (WDF), which is the web based system for local authority collected municipal waste data reporting by UK local authorities to central government. The data are based on returns made to WDF (relating to approximately 40 questions on local authority collected municipal waste management) by councils, within two months of the end of each quarter. The NI data includes all municipal waste which is collected under arrangements made by a district council.*


**Data Uses**


*The data contained are used by local authorities, waste management groups, Devolved Administrations, and the UK Government to measure progress towards achieving targets from various waste strategies including:*

*The revised Northern Ireland Waste Management Strategy.*
*The Waste Framework Directive.*

*The data are also used by media, the general public and special interest groups to inform policy and lifestyle choices related to the treatment of waste.*


**Key Terms**


*Definitions of key terms including ‘Household waste’ and ‘Waste from Households’ are available in the Glossry of the report at https://www.daera-ni.gov.uk/publications/northern-ireland-local-authority-collected-municipal-waste-management-statistics-2022*



**Contact Details**


*DAERA Statistics & Analytical Services Branch welcome any feedback you have on this dashboard.*

*Please e-mail comments to env.stats@daera-ni.gov.uk*

*Further information can be found on the DAERA Statistics website https://www.daera-ni.gov.uk/landing-pages/statistics*


Row {.tabset .tabset-fade}
-------------------------------------


```