jcp_hh_fam_page.Rmd

---
title: "Monthly number of households on Universal Credit by family type"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: fill
---

```{css, echo = FALSE}
#la{
    position: absolute;
    z-index: 100;
    left: 100px;
    max-width: 60%;
    min-width: 600px
}
```

```{r setup, include=FALSE}
library(flexdashboard)
library(plotly)
library(tidyverse)
library(crosstalk)
library(lubridate)
library(htmlwidgets)
library(SPHSUgraphs)
`-.gg` <- function(e1, e2) e2(e1)

theme_set(theme_sphsu_light())

load(file = "data/uc_hh_la_fam.rdata")



uc_hh_la_fam_ts <- uc_hh_la_fam |>
  select(`Local authority` = 1,
         Month,
         n_hh = `Households on Universal Credit`,
         fam = `Family Type`) %>%
  mutate(Month = dmy(paste(1, Month))) %>%
  mutate(fam = factor(
    fam,
    levels = c(
      "Single, no children",
      "Single, with children",
      "Couple, no children",
      "Couple, with children",
      "Unknown or missing family type"
    )
  )) %>%
  arrange(`Local authority`, desc(Month), desc(fam)) %>%
  group_by(`Local authority`, Month) |>
  mutate(
    tooltip = paste0(
      "Local authority: ",
      `Local authority`,
      "\nMonth: ",
      Month,
      "\nNumber of households, ",
      str_to_lower(fam),
      ": ",
      n_hh
    ),
    n_hh = cumsum(n_hh),
  ) %>%
  group_by(`Local authority`) %>%
  mutate(p_p = n_hh / max(n_hh),
         fam = fct_reorder(fam, p_p, max, .desc = FALSE)) %>%
  ungroup() %>%
  select(-n_hh) %>%
  pivot_wider(names_from = fam, values_from = c(p_p, tooltip))

uc_hh_shared <- SharedData$new(uc_hh_la_fam_ts)

```


```{r}
filter_select("la", "Local authority", uc_hh_shared, ~`Local authority`, allLevels = FALSE, 
              # selected = "Aberdeen City Council",
              multiple = FALSE
              )

```


```{r}

uc_hh_shared %>% 
plot_ly(
    x = ~ Month,
    y = ~ `p_p_Single, no children`,
    type = "scatter",
    mode = "line",
    fill = "tozeroy",
    name = "Single, no children",
    text = ~ `tooltip_Single, no children`,
    hoverinfo = "text"
  ) %>%
  add_trace(
    y = ~ `p_p_Single, with children`,
    text = ~ `tooltip_Single, with children`,
    name = "Single, with children"
  ) %>%
  add_trace(
    y = ~ `p_p_Couple, no children`,
    text = ~ `tooltip_Couple, no children`,
    name = "Couple, no children"
  ) %>%
  add_trace(
    y = ~ `p_p_Couple, with children`,
    text = ~ `tooltip_Couple, with children`,
    name = "Couple, with children"
  ) %>%
  add_trace(
    y = ~ `p_p_Unknown or missing family type`,
    text = ~ `tooltip_Unknown or missing family type`,
    name = "Unknown or missing family type"
  ) %>% 
  config(displayModeBar = FALSE) %>%
  layout(
    xaxis = list(fixedrange = TRUE),
    xaxis2 = list(fixedrange = TRUE),
    yaxis = list(fixedrange = TRUE, title = "Proportion of max households on UC"),
    yaxis2 = list(fixedrange = TRUE),
    legend = list(x = 0.1, y = 0.75,
                  itemclick = FALSE,
                  itemdoubleclick = FALSE)
  ) 


```

```{js}
function filter_default() {
    document.getElementById("la").getElementsByClassName("selectized") 
[0].selectize.setValue("Aberdeen City", false);
 }
$(document).ready(filter_default)
```