R/get_profs.R

In vanichols/CyChecks: Obtains and Analyzes Iowa State University Salary Data

#' Create a dataframe of professors' salary data
#' @description Create a dataframe that only contains professors' salary data
#'   from a larger dataframe of salary data. Create a new variable 'position_simplified'
#'   that groups professor titles into categories such as associate, visting,
#'   and emeritus.
#' @title get_profs
#' @usage get_profs(data)
#' @importFrom dplyr mutate
#' @importFrom dplyr filter
#' @param data A dataframe of salary data with a variable 'position'
#'
#' @return profs A dataframe of professors' salary data with tidied position
#'   categories
#' @export
#'
#' @examples
#' get_profs()
#'

get_profs <- function(data=sals_dept){

assertthat::assert_that(is.data.frame(data))
assertthat::assert_that("position" %in% names(data))

# Filter dataframe for all positions that contain the string 'PROF'

dataframe <- data %>%
  dplyr::filter(grepl('PROF', position))

# Create a new variable 'position_simplified' that groups professor titles into groups
# such as associate, visting, and emeritus.
dataframe <- dataframe %>% dplyr::mutate(position_simplified = gsub(".*EMER.*",'emeritus', position),
                          position_simplified = gsub(".*DIST.*",'distinguished', position_simplified),
                          position_simplified = gsub(".*UNIV.*",'university',position_simplified),
                          position_simplified = gsub(".*MORRILL.*",'morrill',position_simplified),
                          position_simplified = gsub(".*ADJ.*",'adjunct',position_simplified),
                          position_simplified = gsub(".*AFFIL.*",'affiliate',position_simplified),
                          position_simplified = gsub(".*VSTG.*",'visiting',position_simplified),
                          position_simplified = gsub(".*ASST.*", "assistant", position_simplified),
                          position_simplified = gsub(".*ASSOC.*", "associate", position_simplified),
                          position_simplified = gsub(".*COLLAB.*",'collab', position_simplified),
                          position_simplified = gsub(".*(CHAIR|CHR).*",'chair',position_simplified),
                          position_simplified = gsub(".*(RES PROF|CLIN PROF).*",'professor',position_simplified),
                          position_simplified = replace(position_simplified,position_simplified=="PROF",'professor'))

dataframe <- dataframe %>% dplyr::mutate(position = gsub(".*PROF.*",'professor', position))

dataframe <- data.frame(dataframe)

return(dataframe)
}