R/code_candidates.R

In kuriwaki/ballot: Read and Format Ballot Image Logs

#' Encode party of statewide offices in South Carolina
#'
#' Recode each year's statewide elections to numeric by hand. Because we know these were on the ballot for everyone, numeric codes can be determined as a 0
#'
#' @param tbl wide table with columns like \env{GOV0000}.
#' @param year year of general election
#'
#' @export
stwide_to_numeric <- function(tbl, year) {

  # 2010
  if (year == "2010") {
    out <- tbl %>%
      mutate(
        GOV_party = recode(GOV0000, `Nikki R Haley` = 1L, `Vincent A Sheheen` = -1L, .default = 0L, .missing = 0L),
        USS_party = recode(USS0001, `Jim DeMint` = 1L, `Alvin M Greene` = -1L, .default = 0L, .missing = 0L),
        LGV_party = recode(LGV0000, `Ken Ard` = 1L, `Ashley Cooper` = -1L, .default = 0L, .missing = 0L),
        ATG_party = recode(ATG0000, `Alan Wilson` = 1L, `Matthew Richardson` = -1L, .default = 0L, .missing = 0L),
        SOS_party = recode(SOS0000, `Mark Hammond` = 1L, `Marjorie L Johnson` = -1L, .default = 0L, .missing = 0L),
        SSI_party = recode(SSI0000, `Mick Zais` = 1L, `Frank Holleman` = -1L, .default = 0L, .missing = 0L)
      ) %>%
      rename(
        GOV_vote = GOV0000,
        USS_vote = USS0001,
        LGV_vote = LGV0000,
        ATG_vote = ATG0000,
        SOS_vote = SOS0000,
        SSI_vote = SSI0000)
  }

  # 2012
  if (year == "2012") {
    out <- tbl %>%
      mutate(
        PRS_party = recode(PRS0000, `Mitt Romney` = 1L, `Barack Obama` = -1L, .default = 0L, .missing = 0L)
      ) %>%
      rename(
        PRS_vote = PRS0000
        )
  }

  # 2014
  if (year == "2014") {
    out <- tbl %>%
      mutate(
        GOV_party = recode(GOV0000, `Nikki R Haley` = 1L, `Vincent Sheheen` = -1L, .default = 0L, .missing = 0L),
        USS1_party = recode(USS0001, `Lindsey Graham` = 1L, `Brad Hutto` = -1L, .default = 0L, .missing = 0L),
        USS2_party = recode(USS0002, `Tim Scott` = 1L, `Joyce Dickerson` = -1L, .default = 0L, .missing = 0L),
        LGV_party = recode(LGV0000, `Henry McMaster` = 1L, `Bakari Sellers` = -1L, .default = 0L, .missing = 0L),
        ATG_party = recode(ATG0000, `Alan Wilson` = 1L, `Parnell Diggs` = -1L, .default = 0L, .missing = 0L),
        SOS_party = recode(SOS0000, `Mark Hammond` = 1L, `Ginny Deerin` = -1L, .default = 0L, .missing = 0L),
        SSI_party = recode(SSI0000, `Molly Mitchell Spearman` = 1L, `Tom Thompson` = -1L, .default = 0L, .missing = 0L)
      ) %>%
      rename(
        GOV_vote = GOV0000,
        USS1_vote = USS0001,
        USS2_vote = USS0002,
        LGV_vote = LGV0000,
        ATG_vote = ATG0000,
        SOS_vote = SOS0000,
        SSI_vote = SSI0000
      )
  }

  # 2016
  if (year == "2016") {
    out <-  tbl %>%
      mutate(
        PRS_party = recode(PRS0000, `Donald J Trump` = 1L, `Hillary Rodham Clinton` = -1L, .default = 0L, .missing = 0L),
        USS_party = recode(USS0001, `Tim Scott` = 1L,  `Thomas Dixon` = -1L, .default = 0L, .missing = 0L)
      ) %>%
      rename(
        PRS_vote = PRS0000,
        USS_vote = USS0001
        )
  }

  if (year == "2018") {
    out <- tbl %>%
      mutate(
        GOV_party = recode(GOV0000, `Henry McMaster` = 1L, `James Smith` = -1L, .default = 0L, .missing = 0L),
        ATG_party = recode(ATG0000, `Alan Wilson` = 1L, `Constance Anastopoulo` = -1L, .default = 0L, .missing = 0L),
        SOS_party = recode(SOS0000, `Mark Hammond` = 1L, `Melvin T Whittenburg` = -1L, .default = 0L, .missing = 0L),
        SSI_party = recode(SSI0000, `Molly Mitchell Spearman` = 1L, `Israel Romero` = -1L, .default = 0L, .missing = 0L)
      ) %>%
      rename(
        GOV_vote = GOV0000,
        ATG_vote = ATG0000,
        SOS_vote = SOS0000,
        SSI_vote = SSI0000
      )
  }


  ## all years have party
  out <- out %>%
    mutate(
      PTY_party = recode(PTY0000, `Republican` = 1L, `Democratic` = -1L, .default = 0L, .missing = 0L)
    ) %>%
    rename(PTY_vote = PTY0000)

  out
}


#' Translate abbreviation codes to labels
#'
#' @param vec a character vector of variable labels
#' @param linebreak whether or not to linebreak labels
#'
#' @importFrom dplyr recode
#' @export
recode_abbrv <- function(vec, linebreak = FALSE) {
  recoded <-
    recode(vec,
           PRS =   "President",
           PRS_party =   "President",
           PTY =     "Party Ticket",
           PTY_party =     "Party Ticket",
           party =   "Party Ticket",
           USSEN = "U.S. Senate",
           USS = "U.S. Senate",
           USSEN_party = "U.S. Senate",
           USS_party = "U.S. Senate",
           USSEN1 = "U.S. Senate",
           USSEN1_party = "U.S. Senate",
           USSEN2 = "U.S. Senate Special",
           USSEN2_party = "U.S. Senate Special",
           USS1 = "U.S. Senate",
           USS1_party = "U.S. Senate",
           USS2 = "U.S. Senate Special",
           USS2_party = "U.S. Senate Special",
           GOV =   "Governor",
           LGV =   "Lt. Governor",
           SOS =   "Secretary of State",
           ATG =   "Attorney General",
           SSI =   "School Superintendent",
           GOV_party =   "Governor",
           LGV_party =   "Lt. Governor",
           SOS_party =   "Secretary of State",
           ATG_party =   "Attornery General",
           SSI_party =   "School Superintendent",
           USHOU_party = "U.S. House",
           USH_party = "U.S. House",
           SEN_party =   "State Senate",
           HOU_party =   "State House",
           SHF_party =   "County Sheriff",
           CLR_party =   "Clerk of Court",
           COR_party =   "Coroner",
           CCD_party =   "County Council",
           AUD_party =   "County Auditor",
           USHOU = "U.S. House",
           USH = "U.S. House",
           SEN =   "State Senate",
           HOU =   "State House",
           SHF =   "County\nSheriff",
           CLR =   "Clerk of Court",
           COR =   "Coroner",
           CCD =   "County Council",
           JPR =   "Probate Judge",
           JPRB =   "Probate Judge",
           JPR_party =   "Probate Judge",
           JPRB_party =   "Probate Judge",
           CTRES =   "County Treasurer",
           CTRES_party =   "County Treasurer",
           CTR =   "County Treasurer",
           CTR_party =   "County Treasurer",
           CAP =   "Tax for\nCapital\nProjects",
           SCH =   "Tax for\nSchool\nProjects",
           BND =   "Issue Bonds",
           ALC =   "Alcohol Sale",
           LRCA1 =   "Con. Amendment: Gambling",
           LRCA2 =   "Con. Amendment: Form of Gov",
           national = "Federal Offices",
           subnational = "State and Local Offices",
           ref = "County Referenda"
    )
  if (linebreak)
    return(recoded)
  if (!linebreak)
    return(str_replace_all(recoded, "\n", " "))
}