data-raw/lakisha/lakisha-dataprep.R

In npaterno/data_hunter: Data set repository for OpenIntro textbooks

# load libraries ----------------------------------------------------------------
library(dplyr)

# load data ---------------------------------------------------------------------
lakisha <- rio::import(here::here("data-raw/lakisha/lakisha_aer.dta")) %>% as_tibble()

# cleaning ----------------------------------------------------------------------

# remove formats and labels from Stata 
lakisha <- haven::zap_formats(lakisha)
lakisha <- haven::zap_label(lakisha)

# rename vars using snake case
lakisha <- lakisha %>% rename(n_jobs = ofjobs,
                              years_exp = yearsexp,
                              emp_holes = empholes,
                              occup_specific = occupspecific,
                              occup_broad = occupbroad,
                              work_in_school = workinschool,
                              computer_skills = computerskills,
                              special_skills = specialskills,
                              first_name = firstname,
                              ad_id = adid,
                              frac_black = fracblack,
                              frac_white = fracwhite,
                              l_med_hh_inc = lmedhhinc,
                              frac_dropout = fracdropout,
                              frac_colp = fraccolp,
                              l_inc = linc,
                              exp_min_req = expminreq,
                              school_req = schoolreq,
                              frac_black_emp_zip = fracblack_empzip,
                              frac_white_emp_zip = fracwhite_empzip,
                              l_med_hh_inc_emp_zip = lmedhhinc_empzip,
                              frac_dropout_emp_zip = fracdropout_empzip,
                              frac_colp_emp_zip = fraccolp_empzip,
                              l_inc_emp_zip  = linc_empzip,
                              off_support = offsupport,
                              sales_rep = salesrep,
                              retail_sales = retailsales,
                              exp_req = expreq,
                              com_req = comreq,
                              educ_req = educreq,
                              comp_req = compreq,
                              org_req = orgreq,
                              trans_com = transcom,
                              bank_real = bankreal,
                              bus_service = busservice,
                              oth_service = othservice,
                              miss_ind = missind
) %>% 
  select(-c(id, ad)) #removed as it's unclear what these represent

# save --------------------------------------------------------------------------
usethis::use_data(lakisha, overwrite = TRUE)