onetmappinguk: Map US O-NET to the UK SOC-2010

Documented in phase3_onet

#' Construct O-NET employment data
#'
#' This function reads in OES employment data from 2004 to 2019. It then converts SOC-2000 data to SOC-2010 and then maps the employment totals to O-NET SOC-2010,
#' so that employment can be used as weights for constructing O-NET information for UK SOC codes.
#'
#'  A list containing four data frames:
#' @param `p1`
#' - The object produced by `phase1_onet()`
#' @param `p2`
#' - The object produced by `phase2_onet()`
#'
#' @return A list of dataframes of panels for each of the O-NET domains
#' - `skills.cleaned`
#'
#' @export
phase3_onet <- function(p1=NULL,p2=NULL) {

##### COMBINE CROSSWALKS INTO A LIST

  crosswalks <- list("soc00_to_06" = soc00_to_06,
                     "soc06_to_00" = soc06_to_00,
                     "soc06_to_09" = soc06_to_09,
                     "soc09_to_06" = soc09_to_06,
                     "soc09_to_10" = soc09_to_10,
                     "soc10_to_09" = soc10_to_09)


##### SKILLS #####

print("Phase 3 of 6: Now Reweighting 2004 Skills Data")
reweighted.skills.2004 <- reweight_onets_2000(yr=2004,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2005 Skills Data")
reweighted.skills.2005 <- reweight_onets_2000(yr=2005,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2006 Skills Data")
reweighted.skills.2006 <- reweight_onets_2006(yr=2006,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2007 Skills Data")
reweighted.skills.2007 <- reweight_onets_2006(yr=2007,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2008 Skills Data")
reweighted.skills.2008 <- reweight_onets_2006(yr=2008,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2009 Skills Data")
reweighted.skills.2009 <- reweight_onets_2009(yr=2009,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2010 Skills Data")
reweighted.skills.2010 <- reweight_onets_2009(yr=2010,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2011 Skills Data")
reweighted.skills.2011 <- reweight_onets_2010(yr=2011,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2012 Skills Data")
reweighted.skills.2012 <- reweight_onets_2010(yr=2012,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2013 Skills Data")
reweighted.skills.2013 <- reweight_onets_2010(yr=2013,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2014 Skills Data")
reweighted.skills.2014 <- reweight_onets_2010(yr=2014,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2015 Skills Data")
reweighted.skills.2015 <- reweight_onets_2010(yr=2015,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2016 Skills Data")
reweighted.skills.2016 <- reweight_onets_2010(yr=2016,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2017 Skills Data")
reweighted.skills.2017 <- reweight_onets_2010(yr=2017,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2018 Skills Data")
reweighted.skills.2018 <- reweight_onets_2010(yr=2018,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)
print("Phase 3 of 6: Now Reweighting 2019 Skills Data")
reweighted.skills.2019 <- reweight_onets_2010(yr=2019,emp.data=p2,onet.data=p1[["skills"]],crosswalks=crosswalks)

print("Phase 3 of 6: Now Appending/Cleaning Skills Data")

skills.frames <- list(reweighted.skills.2004,reweighted.skills.2005,reweighted.skills.2006,
              reweighted.skills.2007,reweighted.skills.2008,reweighted.skills.2009,
              reweighted.skills.2010,reweighted.skills.2011,reweighted.skills.2012,
              reweighted.skills.2013,reweighted.skills.2014,reweighted.skills.2015,
              reweighted.skills.2016,reweighted.skills.2017,reweighted.skills.2018,reweighted.skills.2019)

skills_cleaned <- clean_reweighted_skills(skills.frames)

##### ABILITIES #####

print("Phase 3 of 6: Now Reweighting 2004 Abilities Data")
reweighted.abilities.2004 <- reweight_onets_2000(yr=2004,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2005 Abilities Data")
reweighted.abilities.2005 <- reweight_onets_2000(yr=2005,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2006 Abilities Data")
reweighted.abilities.2006 <- reweight_onets_2006(yr=2006,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2007 Abilities Data")
reweighted.abilities.2007 <- reweight_onets_2006(yr=2007,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2008 Abilities Data")
reweighted.abilities.2008 <- reweight_onets_2006(yr=2008,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2009 Abilities Data")
reweighted.abilities.2009 <- reweight_onets_2009(yr=2009,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2010 Abilities Data")
reweighted.abilities.2010 <- reweight_onets_2009(yr=2010,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2011 Abilities Data")
reweighted.abilities.2011 <- reweight_onets_2010(yr=2011,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2012 Abilities Data")
reweighted.abilities.2012 <- reweight_onets_2010(yr=2012,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2013 Abilities Data")
reweighted.abilities.2013 <- reweight_onets_2010(yr=2013,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2014 Abilities Data")
reweighted.abilities.2014 <- reweight_onets_2010(yr=2014,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2015 Abilities Data")
reweighted.abilities.2015 <- reweight_onets_2010(yr=2015,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2016 Abilities Data")
reweighted.abilities.2016 <- reweight_onets_2010(yr=2016,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2017 Abilities Data")
reweighted.abilities.2017 <- reweight_onets_2010(yr=2017,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2018 Abilities Data")
reweighted.abilities.2018 <- reweight_onets_2010(yr=2018,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2019 Abilities Data")
reweighted.abilities.2019 <- reweight_onets_2010(yr=2019,emp.data=p2,onet.data=p1[["abilities"]],crosswalks)

print("Phase 3 of 6: Now Appending/Cleaning Abilities Data")

abilities.frames <- list(reweighted.abilities.2004,reweighted.abilities.2005,reweighted.abilities.2006,
              reweighted.abilities.2007,reweighted.abilities.2008,reweighted.abilities.2009,
              reweighted.abilities.2010,reweighted.abilities.2011,reweighted.abilities.2012,
              reweighted.abilities.2013,reweighted.abilities.2014,reweighted.abilities.2015,
              reweighted.abilities.2016,reweighted.abilities.2017,reweighted.abilities.2018,reweighted.abilities.2019)

abilities_cleaned <- clean_reweighted_abilities(abilities.frames)

##### ACTIVITIES #####

print("Phase 3 of 6: Now Reweighting 2004 Work Activities Data")
reweighted.activities.2004 <- reweight_onets_2000(yr=2004,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2005 Work Activities Data")
reweighted.activities.2005 <- reweight_onets_2000(yr=2005,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2006 Work Activities Data")
reweighted.activities.2006 <- reweight_onets_2006(yr=2006,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2007 Work Activities Data")
reweighted.activities.2007 <- reweight_onets_2006(yr=2007,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2008 Work Activities Data")
reweighted.activities.2008 <- reweight_onets_2006(yr=2008,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2009 Work Activities Data")
reweighted.activities.2009 <- reweight_onets_2009(yr=2009,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2010 Work Activities Data")
reweighted.activities.2010 <- reweight_onets_2009(yr=2010,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2011 Work Activities Data")
reweighted.activities.2011 <- reweight_onets_2010(yr=2011,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2012 Work Activities Data")
reweighted.activities.2012 <- reweight_onets_2010(yr=2012,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2013 Work Activities Data")
reweighted.activities.2013 <- reweight_onets_2010(yr=2013,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2014 Work Activities Data")
reweighted.activities.2014 <- reweight_onets_2010(yr=2014,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2015 Work Activities Data")
reweighted.activities.2015 <- reweight_onets_2010(yr=2015,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2016 Work Activities Data")
reweighted.activities.2016 <- reweight_onets_2010(yr=2016,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2017 Work Activities Data")
reweighted.activities.2017 <- reweight_onets_2010(yr=2017,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2018 Work Activities Data")
reweighted.activities.2018 <- reweight_onets_2010(yr=2018,emp.data=p2,onet.data=p1[["activities"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2019 Work Activities Data")
reweighted.activities.2019 <- reweight_onets_2010(yr=2019,emp.data=p2,onet.data=p1[["activities"]],crosswalks)

print("Phase 3 of 6: Now Appending/Cleaning Activities Data")

activities.frames <- list(reweighted.activities.2004,reweighted.activities.2005,reweighted.activities.2006,
                      reweighted.activities.2007,reweighted.activities.2008,reweighted.activities.2009,
                      reweighted.activities.2010,reweighted.activities.2011,reweighted.activities.2012,
                      reweighted.activities.2013,reweighted.activities.2014,reweighted.activities.2015,
                      reweighted.activities.2016,reweighted.activities.2017,reweighted.activities.2018,reweighted.activities.2019)

activities_cleaned <- clean_reweighted_activities(activities.frames)

##### WORK CONTEXTS #####

print("Phase 3 of 6: Now Reweighting 2004 Work Contexts Data")
reweighted.contexts.2004 <- reweight_contexts_2000(yr=2004,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2005 Work Contexts Data")
reweighted.contexts.2005 <- reweight_contexts_2000(yr=2005,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2006 Work Contexts Data")
reweighted.contexts.2006 <- reweight_contexts_2006(yr=2006,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2007 Work Contexts Data")
reweighted.contexts.2007 <- reweight_contexts_2006(yr=2007,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2008 Work Contexts Data")
reweighted.contexts.2008 <- reweight_contexts_2006(yr=2008,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2009 Work Contexts Data")
reweighted.contexts.2009 <- reweight_contexts_2009(yr=2009,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2010 Work Contexts Data")
reweighted.contexts.2010 <- reweight_contexts_2009(yr=2010,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2011 Work Contexts Data")
reweighted.contexts.2011 <- reweight_contexts_2010(yr=2011,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2012 Work Contexts Data")
reweighted.contexts.2012 <- reweight_contexts_2010(yr=2012,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2013 Work Contexts Data")
reweighted.contexts.2013 <- reweight_contexts_2010(yr=2013,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2014 Work Contexts Data")
reweighted.contexts.2014 <- reweight_contexts_2010(yr=2014,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2015 Work Contexts Data")
reweighted.contexts.2015 <- reweight_contexts_2010(yr=2015,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2016 Work Contexts Data")
reweighted.contexts.2016 <- reweight_contexts_2010(yr=2016,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2017 Work Contexts Data")
reweighted.contexts.2017 <- reweight_contexts_2010(yr=2017,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2018 Work Contexts Data")
reweighted.contexts.2018 <- reweight_contexts_2010(yr=2018,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)
print("Phase 3 of 6: Now Reweighting 2019 Work Contexts Data")
reweighted.contexts.2019 <- reweight_contexts_2010(yr=2019,emp.data=p2,onet.data=p1[["contexts"]],crosswalks)

print("Phase 3 of 6: Now Appending/Cleaning Work Contexts Data")

contexts.frames <- list(reweighted.contexts.2004,reweighted.contexts.2005,reweighted.contexts.2006,
                          reweighted.contexts.2007,reweighted.contexts.2008,reweighted.contexts.2009,
                          reweighted.contexts.2010,reweighted.contexts.2011,reweighted.contexts.2012,
                          reweighted.contexts.2013,reweighted.contexts.2014,reweighted.contexts.2015,
                          reweighted.contexts.2016,reweighted.contexts.2017,reweighted.contexts.2018,reweighted.contexts.2019)

contexts_cleaned <- clean_reweighted_contexts(contexts.frames)


###### RETURN LIST OF DATA FRAMES

return(list(skills.cleaned=skills_cleaned,
            abilities.cleaned=abilities_cleaned,
            activities.cleaned=activities_cleaned,
            contexts.cleaned=contexts_cleaned))

}