R/plot_q77_hh_ends_meet.R

In Rare-Technology/HHS_Dashboard: PKG_TITLE

prep_q77_hh_ends_meet <- function(.data){
  

  hhs_Q77 <- .data[,c("maa", "77_hh_ends_meet")] %>%
    dplyr::filter(`77_hh_ends_meet` != "") %>%
    droplevels()
  
  Q77_summary <- proportion(hhs_Q77$`77_hh_ends_meet`,
                            hhs_Q77$maa,
                            3, type=5)
  
  colnames(Q77_summary) <- c("MA name", "N", 
                             "Easy", "Fairly easy", 
                             "Very easy", "With difficulty",
                             "With great difficulty")
  Q77_summary_long <-
    as.data.frame(
      Q77_summary %>% 
        tidyr::pivot_longer(
          cols = c(
            "With great difficulty",
            "With difficulty",
            "Fairly easy",
            "Easy",
            "Very easy"
          ),
          names_to = "key",
          values_to = "Proportion (%)"
        )
    )
  
  Q77_summary_long$key <-
    factor(
      Q77_summary_long$key,
      levels = c(
        "With great difficulty",
        "With difficulty",
        "Fairly easy",
        "Easy",
        "Very easy"
      )
    )
  
  Q77 <- clean_plot_data(Q77_summary_long)
  Q77
}

plot_q77_hh_ends_meet <- function(.data, ...){

         
  .data_plot <- prep_q77_hh_ends_meet(.data)
  
  p <- plot_horiz_bar(
    .data_plot,
    title = "Proportion of household able to make ends meet",
    facet_var = key
  )

  result <- list(
    plot = p,
    data = .data_plot
  )
}