R/plot_q61e_rights_distribution_fair.R

In Rare-Technology/HHS_Dashboard: PKG_TITLE

prep_q61e_rights_distribution_fair <- function(.data){
  hhs_Q61e <- .data[,c("maa", "61e_rights_distribution_fair")] %>%
    dplyr::filter(`61e_rights_distribution_fair` %in% c(1:5)) %>%
    rbind(c(NA,1),c(NA,2),c(NA,3),c(NA,4),c(NA,5))
  
  Q61e_summary <- proportion ( hhs_Q61e$`61e_rights_distribution_fair`,
                               hhs_Q61e$maa,
                               3,5)
  
  colnames(Q61e_summary) <-
    c( "MA name",
       "N",
       "Strongly disagree",
       "Disagree",
       "Neither agree nor disagree",
       "Agree",
       "Strongly agree"
    )
  
  Q61e_summary_grouped <- Q61e_summary %>% 
    dplyr::filter (`MA name` != "Mean ± SE")
  
  Q61e_summary_grouped$`Agree (%)` <- as.numeric(Q61e_summary_grouped$Agree) + 
    as.numeric(Q61e_summary_grouped$`Strongly agree`)
  
  Q61e_summary_grouped$`Neither agree nor disagree (%)` <- 
    as.numeric(Q61e_summary_grouped$`Neither agree nor disagree`)
  
  Q61e_summary_grouped$`Disagree (%)` <- as.numeric(Q61e_summary_grouped$Disagree) + 
    as.numeric(Q61e_summary_grouped$`Strongly disagree`)
  
  Q61e_summary <- Q61e_summary_grouped[,c("MA name", "N", 
                                          "Disagree (%)",
                                          "Neither agree nor disagree (%)",
                                          "Agree (%)" )]
  #pivot table
  Q61e_summary_long <-
    as.data.frame(
      Q61e_summary_grouped[, c("MA name", "N",
                               "Disagree (%)",
                               "Neither agree nor disagree (%)",
                               "Agree (%)" )] %>% 
        tidyr::pivot_longer(
          cols = c(
            "Disagree (%)",
            "Neither agree nor disagree (%)",
            "Agree (%)"
          ),
          names_to = "key",
          values_to = "Proportion (%)"
        )
    )
  Q61e_summary_long$key <-
    factor(
      Q61e_summary_long$key,
      levels = c(
        "Disagree (%)",
        "Neither agree nor disagree (%)",
        "Agree (%)"
      )
    )
  
  Q61e <- clean_plot_data(Q61e_summary_long)
  Q61e
}

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

  .data_plot <- prep_q61e_rights_distribution_fair(.data)
 
  p <- plot_horiz_bar(
    .data_plot,
    title = "Proportion of fishers who believe that \naccess rights have been distributed fairly",
    facet_var = key
  )

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