R/map_to_uk.R

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

#' Match cleaned O-NET skills to the UK SOC
#'
#' @return A UK occupational panel of skills
#' @export
map_skills_uk <- function(cleaned.onet=NULL,xwalk=NULL) {
###### merge in the onet to uk soc cross walk here

  cleaned.onet <- as.data.table(cleaned.onet)
  xwalk <- as.data.table(xwalk)

collapse.data <- base::merge(cleaned.onet,xwalk,by="onetsoc2010code",allow.cartesian=TRUE)

final.data <- collapse.data %>%
  dplyr::group_by(uksoc2010code,year) %>%
  dplyr::mutate(uk_skill_I1  = weighted.mean(skill_I1,w=onet_oes_emp))  %>% dplyr::mutate(uk_skill_L1  = weighted.mean(skill_L1,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I2  = weighted.mean(skill_I2,w=onet_oes_emp))  %>% dplyr::mutate(uk_skill_L2  = weighted.mean(skill_L2,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I3  = weighted.mean(skill_I3,w=onet_oes_emp))  %>% dplyr::mutate(uk_skill_L3  = weighted.mean(skill_L3,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I4  = weighted.mean(skill_I4,w=onet_oes_emp))  %>% dplyr::mutate(uk_skill_L4  = weighted.mean(skill_L4,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I5  = weighted.mean(skill_I5,w=onet_oes_emp))  %>% dplyr::mutate(uk_skill_L5  = weighted.mean(skill_L5,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I6  = weighted.mean(skill_I6,w=onet_oes_emp))  %>% dplyr::mutate(uk_skill_L6  = weighted.mean(skill_L6,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I7  = weighted.mean(skill_I7,w=onet_oes_emp))  %>% dplyr::mutate(uk_skill_L7  = weighted.mean(skill_L7,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I8  = weighted.mean(skill_I8,w=onet_oes_emp))  %>% dplyr::mutate(uk_skill_L8  = weighted.mean(skill_L8,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I9  = weighted.mean(skill_I9,w=onet_oes_emp))  %>% dplyr::mutate(uk_skill_L9  = weighted.mean(skill_L9,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I10 = weighted.mean(skill_I10,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L10 = weighted.mean(skill_L10,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I11 = weighted.mean(skill_I11,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L11 = weighted.mean(skill_L11,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I12 = weighted.mean(skill_I12,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L12 = weighted.mean(skill_L12,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I13 = weighted.mean(skill_I13,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L13 = weighted.mean(skill_L13,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I14 = weighted.mean(skill_I14,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L14 = weighted.mean(skill_L14,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I15 = weighted.mean(skill_I15,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L15 = weighted.mean(skill_L15,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I16 = weighted.mean(skill_I16,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L16 = weighted.mean(skill_L16,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I17 = weighted.mean(skill_I17,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L17 = weighted.mean(skill_L17,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I18 = weighted.mean(skill_I18,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L18 = weighted.mean(skill_L18,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I19 = weighted.mean(skill_I19,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L19 = weighted.mean(skill_L19,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I20 = weighted.mean(skill_I20,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L20 = weighted.mean(skill_L20,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I21 = weighted.mean(skill_I21,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L21 = weighted.mean(skill_L21,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I22 = weighted.mean(skill_I22,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L22 = weighted.mean(skill_L22,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I23 = weighted.mean(skill_I23,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L23 = weighted.mean(skill_L23,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I24 = weighted.mean(skill_I24,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L24 = weighted.mean(skill_L24,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I25 = weighted.mean(skill_I25,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L25 = weighted.mean(skill_L25,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I26 = weighted.mean(skill_I26,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L26 = weighted.mean(skill_L26,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I27 = weighted.mean(skill_I27,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L27 = weighted.mean(skill_L27,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I28 = weighted.mean(skill_I28,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L28 = weighted.mean(skill_L28,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I29 = weighted.mean(skill_I29,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L29 = weighted.mean(skill_L29,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I30 = weighted.mean(skill_I30,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L30 = weighted.mean(skill_L30,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I31 = weighted.mean(skill_I31,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L31 = weighted.mean(skill_L31,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I32 = weighted.mean(skill_I32,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L32 = weighted.mean(skill_L32,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I33 = weighted.mean(skill_I33,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L33 = weighted.mean(skill_L33,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I34 = weighted.mean(skill_I34,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L34 = weighted.mean(skill_L34,w=onet_oes_emp)) %>%
  dplyr::mutate(uk_skill_I35 = weighted.mean(skill_I35,w=onet_oes_emp)) %>% dplyr::mutate(uk_skill_L35 = weighted.mean(skill_L35,w=onet_oes_emp)) %>%
  dplyr::select(c(uksoc2010code,year,
                  uk_skill_I1 ,uk_skill_I2 ,uk_skill_I3 ,uk_skill_I4 ,uk_skill_I5 ,uk_skill_I6 ,uk_skill_I7 ,uk_skill_I8 ,uk_skill_I9 ,uk_skill_I10,
                  uk_skill_I11,uk_skill_I12,uk_skill_I13,uk_skill_I14,uk_skill_I15,uk_skill_I16,uk_skill_I17,uk_skill_I18,uk_skill_I19,uk_skill_I20,
                  uk_skill_I21,uk_skill_I22,uk_skill_I23,uk_skill_I24,uk_skill_I25,uk_skill_I26,uk_skill_I27,uk_skill_I28,uk_skill_I29,uk_skill_I30,
                  uk_skill_I31,uk_skill_I32,uk_skill_I33,uk_skill_I34,uk_skill_I35,
                  uk_skill_L1 ,uk_skill_L2 ,uk_skill_L3 ,uk_skill_L4 ,uk_skill_L5 ,uk_skill_L6 ,uk_skill_L7 ,uk_skill_L8 ,uk_skill_L9 ,uk_skill_L10,
                  uk_skill_L11,uk_skill_L12,uk_skill_L13,uk_skill_L14,uk_skill_L15,uk_skill_L16,uk_skill_L17,uk_skill_L18,uk_skill_L19,uk_skill_L20,
                  uk_skill_L21,uk_skill_L22,uk_skill_L23,uk_skill_L24,uk_skill_L25,uk_skill_L26,uk_skill_L27,uk_skill_L28,uk_skill_L29,uk_skill_L30,
                  uk_skill_L31,uk_skill_L32,uk_skill_L33,uk_skill_L34,uk_skill_L35)) %>%
  dplyr::distinct()

return(final.data)
}

#' Match cleaned O-NET abilities to the UK SOC
#'
#' @return A UK occupational panel of abilities
#' @export
map_abilities_uk <- function(cleaned.onet=NULL,xwalk=NULL) {
  ###### merge in the onet to uk soc cross walk here

  cleaned.onet <- as.data.table(cleaned.onet)
  xwalk <- as.data.table(xwalk)

  collapse.data <- base::merge(cleaned.onet,xwalk,by="onetsoc2010code",allow.cartesian=TRUE)

  final.data <- collapse.data %>%
    dplyr::group_by(uksoc2010code,year) %>%
    dplyr::mutate(uk_ability_I1  = weighted.mean(ability_I1,w=onet_oes_emp))  %>% dplyr::mutate(uk_ability_L1  = weighted.mean(ability_L1,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I2  = weighted.mean(ability_I2,w=onet_oes_emp))  %>% dplyr::mutate(uk_ability_L2  = weighted.mean(ability_L2,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I3  = weighted.mean(ability_I3,w=onet_oes_emp))  %>% dplyr::mutate(uk_ability_L3  = weighted.mean(ability_L3,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I4  = weighted.mean(ability_I4,w=onet_oes_emp))  %>% dplyr::mutate(uk_ability_L4  = weighted.mean(ability_L4,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I5  = weighted.mean(ability_I5,w=onet_oes_emp))  %>% dplyr::mutate(uk_ability_L5  = weighted.mean(ability_L5,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I6  = weighted.mean(ability_I6,w=onet_oes_emp))  %>% dplyr::mutate(uk_ability_L6  = weighted.mean(ability_L6,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I7  = weighted.mean(ability_I7,w=onet_oes_emp))  %>% dplyr::mutate(uk_ability_L7  = weighted.mean(ability_L7,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I8  = weighted.mean(ability_I8,w=onet_oes_emp))  %>% dplyr::mutate(uk_ability_L8  = weighted.mean(ability_L8,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I9  = weighted.mean(ability_I9,w=onet_oes_emp))  %>% dplyr::mutate(uk_ability_L9  = weighted.mean(ability_L9,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I10 = weighted.mean(ability_I10,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L10 = weighted.mean(ability_L10,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I11 = weighted.mean(ability_I11,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L11 = weighted.mean(ability_L11,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I12 = weighted.mean(ability_I12,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L12 = weighted.mean(ability_L12,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I13 = weighted.mean(ability_I13,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L13 = weighted.mean(ability_L13,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I14 = weighted.mean(ability_I14,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L14 = weighted.mean(ability_L14,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I15 = weighted.mean(ability_I15,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L15 = weighted.mean(ability_L15,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I16 = weighted.mean(ability_I16,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L16 = weighted.mean(ability_L16,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I17 = weighted.mean(ability_I17,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L17 = weighted.mean(ability_L17,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I18 = weighted.mean(ability_I18,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L18 = weighted.mean(ability_L18,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I19 = weighted.mean(ability_I19,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L19 = weighted.mean(ability_L19,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I20 = weighted.mean(ability_I20,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L20 = weighted.mean(ability_L20,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I21 = weighted.mean(ability_I21,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L21 = weighted.mean(ability_L21,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I22 = weighted.mean(ability_I22,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L22 = weighted.mean(ability_L22,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I23 = weighted.mean(ability_I23,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L23 = weighted.mean(ability_L23,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I24 = weighted.mean(ability_I24,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L24 = weighted.mean(ability_L24,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I25 = weighted.mean(ability_I25,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L25 = weighted.mean(ability_L25,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I26 = weighted.mean(ability_I26,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L26 = weighted.mean(ability_L26,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I27 = weighted.mean(ability_I27,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L27 = weighted.mean(ability_L27,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I28 = weighted.mean(ability_I28,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L28 = weighted.mean(ability_L28,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I29 = weighted.mean(ability_I29,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L29 = weighted.mean(ability_L29,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I30 = weighted.mean(ability_I30,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L30 = weighted.mean(ability_L30,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I31 = weighted.mean(ability_I31,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L31 = weighted.mean(ability_L31,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I32 = weighted.mean(ability_I32,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L32 = weighted.mean(ability_L32,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I33 = weighted.mean(ability_I33,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L33 = weighted.mean(ability_L33,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I34 = weighted.mean(ability_I34,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L34 = weighted.mean(ability_L34,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I35 = weighted.mean(ability_I35,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L35 = weighted.mean(ability_L35,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I36 = weighted.mean(ability_I36,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L36 = weighted.mean(ability_L36,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I37 = weighted.mean(ability_I37,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L37 = weighted.mean(ability_L37,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I38 = weighted.mean(ability_I38,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L38 = weighted.mean(ability_L38,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I39 = weighted.mean(ability_I39,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L39 = weighted.mean(ability_L39,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I40 = weighted.mean(ability_I40,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L40 = weighted.mean(ability_L40,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I41 = weighted.mean(ability_I41,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L41 = weighted.mean(ability_L41,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I42 = weighted.mean(ability_I42,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L42 = weighted.mean(ability_L42,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I43 = weighted.mean(ability_I43,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L43 = weighted.mean(ability_L43,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I44 = weighted.mean(ability_I44,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L44 = weighted.mean(ability_L44,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I45 = weighted.mean(ability_I45,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L45 = weighted.mean(ability_L45,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I46 = weighted.mean(ability_I46,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L46 = weighted.mean(ability_L46,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I47 = weighted.mean(ability_I47,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L47 = weighted.mean(ability_L47,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I48 = weighted.mean(ability_I48,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L48 = weighted.mean(ability_L48,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I49 = weighted.mean(ability_I49,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L49 = weighted.mean(ability_L49,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I50 = weighted.mean(ability_I50,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L50 = weighted.mean(ability_L50,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I51 = weighted.mean(ability_I51,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L51 = weighted.mean(ability_L51,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_ability_I52 = weighted.mean(ability_I52,w=onet_oes_emp)) %>% dplyr::mutate(uk_ability_L52 = weighted.mean(ability_L52,w=onet_oes_emp)) %>%
    dplyr::select(c(uksoc2010code,year,
                    uk_ability_I1 ,uk_ability_I2 ,uk_ability_I3 ,uk_ability_I4 ,uk_ability_I5 ,uk_ability_I6 ,uk_ability_I7 ,uk_ability_I8 ,uk_ability_I9 ,uk_ability_I10,
                    uk_ability_I11,uk_ability_I12,uk_ability_I13,uk_ability_I14,uk_ability_I15,uk_ability_I16,uk_ability_I17,uk_ability_I18,uk_ability_I19,uk_ability_I20,
                    uk_ability_I21,uk_ability_I22,uk_ability_I23,uk_ability_I24,uk_ability_I25,uk_ability_I26,uk_ability_I27,uk_ability_I28,uk_ability_I29,uk_ability_I30,
                    uk_ability_I31,uk_ability_I32,uk_ability_I33,uk_ability_I34,uk_ability_I35,uk_ability_I36,uk_ability_I37,uk_ability_I38,uk_ability_I39,uk_ability_I40,
                    uk_ability_I41,uk_ability_I42,uk_ability_I43,uk_ability_I44,uk_ability_I45,uk_ability_I46,uk_ability_I47,uk_ability_I48,uk_ability_I49,uk_ability_I50,
                    uk_ability_I51,uk_ability_I52,
                    uk_ability_L1 ,uk_ability_L2 ,uk_ability_L3 ,uk_ability_L4 ,uk_ability_L5 ,uk_ability_L6 ,uk_ability_L7 ,uk_ability_L8 ,uk_ability_L9 ,uk_ability_L10,
                    uk_ability_L11,uk_ability_L12,uk_ability_L13,uk_ability_L14,uk_ability_L15,uk_ability_L16,uk_ability_L17,uk_ability_L18,uk_ability_L19,uk_ability_L20,
                    uk_ability_L21,uk_ability_L22,uk_ability_L23,uk_ability_L24,uk_ability_L25,uk_ability_L26,uk_ability_L27,uk_ability_L28,uk_ability_L29,uk_ability_L30,
                    uk_ability_L31,uk_ability_L32,uk_ability_L33,uk_ability_L34,uk_ability_L35,uk_ability_L36,uk_ability_L37,uk_ability_L38,uk_ability_L39,uk_ability_L40,
                    uk_ability_L41,uk_ability_L42,uk_ability_L43,uk_ability_L44,uk_ability_L45,uk_ability_L46,uk_ability_L47,uk_ability_L48,uk_ability_L49,uk_ability_L50,
                    uk_ability_L51,uk_ability_L52)) %>%
    dplyr::distinct()

  return(final.data)
}


#' Match cleaned O-NET work activities to the UK SOC
#'
#' @return A UK occupational panel of work activities
#' @export
map_activities_uk <- function(cleaned.onet=NULL,xwalk=NULL) {
  ###### merge in the onet to uk soc cross walk here

  cleaned.onet <- as.data.table(cleaned.onet)
  xwalk <- as.data.table(xwalk)

  collapse.data <- base::merge(cleaned.onet,xwalk,by="onetsoc2010code",allow.cartesian=TRUE)

  final.data <- collapse.data %>%
    dplyr::group_by(uksoc2010code,year) %>%
    dplyr::mutate(uk_activity_I1  = weighted.mean(activity_I1,w=onet_oes_emp))  %>% dplyr::mutate(uk_activity_L1  = weighted.mean(activity_L1,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I2  = weighted.mean(activity_I2,w=onet_oes_emp))  %>% dplyr::mutate(uk_activity_L2  = weighted.mean(activity_L2,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I3  = weighted.mean(activity_I3,w=onet_oes_emp))  %>% dplyr::mutate(uk_activity_L3  = weighted.mean(activity_L3,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I4  = weighted.mean(activity_I4,w=onet_oes_emp))  %>% dplyr::mutate(uk_activity_L4  = weighted.mean(activity_L4,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I5  = weighted.mean(activity_I5,w=onet_oes_emp))  %>% dplyr::mutate(uk_activity_L5  = weighted.mean(activity_L5,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I6  = weighted.mean(activity_I6,w=onet_oes_emp))  %>% dplyr::mutate(uk_activity_L6  = weighted.mean(activity_L6,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I7  = weighted.mean(activity_I7,w=onet_oes_emp))  %>% dplyr::mutate(uk_activity_L7  = weighted.mean(activity_L7,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I8  = weighted.mean(activity_I8,w=onet_oes_emp))  %>% dplyr::mutate(uk_activity_L8  = weighted.mean(activity_L8,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I9  = weighted.mean(activity_I9,w=onet_oes_emp))  %>% dplyr::mutate(uk_activity_L9  = weighted.mean(activity_L9,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I10 = weighted.mean(activity_I10,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L10 = weighted.mean(activity_L10,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I11 = weighted.mean(activity_I11,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L11 = weighted.mean(activity_L11,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I12 = weighted.mean(activity_I12,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L12 = weighted.mean(activity_L12,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I13 = weighted.mean(activity_I13,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L13 = weighted.mean(activity_L13,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I14 = weighted.mean(activity_I14,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L14 = weighted.mean(activity_L14,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I15 = weighted.mean(activity_I15,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L15 = weighted.mean(activity_L15,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I16 = weighted.mean(activity_I16,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L16 = weighted.mean(activity_L16,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I17 = weighted.mean(activity_I17,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L17 = weighted.mean(activity_L17,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I18 = weighted.mean(activity_I18,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L18 = weighted.mean(activity_L18,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I19 = weighted.mean(activity_I19,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L19 = weighted.mean(activity_L19,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I20 = weighted.mean(activity_I20,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L20 = weighted.mean(activity_L20,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I21 = weighted.mean(activity_I21,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L21 = weighted.mean(activity_L21,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I22 = weighted.mean(activity_I22,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L22 = weighted.mean(activity_L22,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I23 = weighted.mean(activity_I23,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L23 = weighted.mean(activity_L23,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I24 = weighted.mean(activity_I24,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L24 = weighted.mean(activity_L24,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I25 = weighted.mean(activity_I25,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L25 = weighted.mean(activity_L25,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I26 = weighted.mean(activity_I26,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L26 = weighted.mean(activity_L26,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I27 = weighted.mean(activity_I27,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L27 = weighted.mean(activity_L27,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I28 = weighted.mean(activity_I28,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L28 = weighted.mean(activity_L28,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I29 = weighted.mean(activity_I29,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L29 = weighted.mean(activity_L29,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I30 = weighted.mean(activity_I30,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L30 = weighted.mean(activity_L30,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I31 = weighted.mean(activity_I31,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L31 = weighted.mean(activity_L31,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I32 = weighted.mean(activity_I32,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L32 = weighted.mean(activity_L32,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I33 = weighted.mean(activity_I33,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L33 = weighted.mean(activity_L33,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I34 = weighted.mean(activity_I34,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L34 = weighted.mean(activity_L34,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I35 = weighted.mean(activity_I35,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L35 = weighted.mean(activity_L35,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I36 = weighted.mean(activity_I36,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L36 = weighted.mean(activity_L36,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I37 = weighted.mean(activity_I37,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L37 = weighted.mean(activity_L37,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I38 = weighted.mean(activity_I38,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L38 = weighted.mean(activity_L38,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I39 = weighted.mean(activity_I39,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L39 = weighted.mean(activity_L39,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I40 = weighted.mean(activity_I40,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L40 = weighted.mean(activity_L40,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_activity_I41 = weighted.mean(activity_I41,w=onet_oes_emp)) %>% dplyr::mutate(uk_activity_L41 = weighted.mean(activity_L41,w=onet_oes_emp)) %>%
   dplyr::select(c(uksoc2010code,year,
                    uk_activity_I1 ,uk_activity_I2 ,uk_activity_I3 ,uk_activity_I4 ,uk_activity_I5 ,uk_activity_I6 ,uk_activity_I7 ,uk_activity_I8 ,uk_activity_I9 ,uk_activity_I10,
                    uk_activity_I11,uk_activity_I12,uk_activity_I13,uk_activity_I14,uk_activity_I15,uk_activity_I16,uk_activity_I17,uk_activity_I18,uk_activity_I19,uk_activity_I20,
                    uk_activity_I21,uk_activity_I22,uk_activity_I23,uk_activity_I24,uk_activity_I25,uk_activity_I26,uk_activity_I27,uk_activity_I28,uk_activity_I29,uk_activity_I30,
                    uk_activity_I31,uk_activity_I32,uk_activity_I33,uk_activity_I34,uk_activity_I35,uk_activity_I36,uk_activity_I37,uk_activity_I38,uk_activity_I39,uk_activity_I40,
                    uk_activity_I41,
                    uk_activity_L1 ,uk_activity_L2 ,uk_activity_L3 ,uk_activity_L4 ,uk_activity_L5 ,uk_activity_L6 ,uk_activity_L7 ,uk_activity_L8 ,uk_activity_L9 ,uk_activity_L10,
                    uk_activity_L11,uk_activity_L12,uk_activity_L13,uk_activity_L14,uk_activity_L15,uk_activity_L16,uk_activity_L17,uk_activity_L18,uk_activity_L19,uk_activity_L20,
                    uk_activity_L21,uk_activity_L22,uk_activity_L23,uk_activity_L24,uk_activity_L25,uk_activity_L26,uk_activity_L27,uk_activity_L28,uk_activity_L29,uk_activity_L30,
                    uk_activity_L31,uk_activity_L32,uk_activity_L33,uk_activity_L34,uk_activity_L35,uk_activity_L36,uk_activity_L37,uk_activity_L38,uk_activity_L39,uk_activity_L40,
                    uk_activity_L41)) %>%

    dplyr::distinct()

  return(final.data)
}


#' Match cleaned O-NET work contexts to the UK SOC
#'
#' @return A UK occupational panel of work contexts
#' @export
map_contexts_uk <- function(cleaned.onet=NULL,xwalk=NULL) {
  cleaned.onet <- as.data.table(cleaned.onet)
  xwalk <- as.data.table(xwalk)

  collapse.data <- base::merge(cleaned.onet,xwalk,by="onetsoc2010code",allow.cartesian=TRUE)

  final.data <- collapse.data %>%
    dplyr::group_by(uksoc2010code,year) %>%
    dplyr::mutate(uk_context_L1  = weighted.mean(context_L1,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L2  = weighted.mean(context_L2,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L3  = weighted.mean(context_L3,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L4  = weighted.mean(context_L4,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L5  = weighted.mean(context_L5,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L6  = weighted.mean(context_L6,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L7  = weighted.mean(context_L7,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L8  = weighted.mean(context_L8,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L9  = weighted.mean(context_L9,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L10 = weighted.mean(context_L10,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L11 = weighted.mean(context_L11,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L12 = weighted.mean(context_L12,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L13 = weighted.mean(context_L13,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L14 = weighted.mean(context_L14,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L15 = weighted.mean(context_L15,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L16 = weighted.mean(context_L16,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L17 = weighted.mean(context_L17,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L18 = weighted.mean(context_L18,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L19 = weighted.mean(context_L19,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L20 = weighted.mean(context_L20,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L21 = weighted.mean(context_L21,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L22 = weighted.mean(context_L22,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L23 = weighted.mean(context_L23,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L24 = weighted.mean(context_L24,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L25 = weighted.mean(context_L25,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L26 = weighted.mean(context_L26,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L27 = weighted.mean(context_L27,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L28 = weighted.mean(context_L28,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L29 = weighted.mean(context_L29,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L30 = weighted.mean(context_L30,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L31 = weighted.mean(context_L31,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L32 = weighted.mean(context_L32,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L33 = weighted.mean(context_L33,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L34 = weighted.mean(context_L34,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L35 = weighted.mean(context_L35,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L36 = weighted.mean(context_L36,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L37 = weighted.mean(context_L37,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L38 = weighted.mean(context_L38,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L39 = weighted.mean(context_L39,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L40 = weighted.mean(context_L40,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L41 = weighted.mean(context_L41,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L42 = weighted.mean(context_L42,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L43 = weighted.mean(context_L43,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L44 = weighted.mean(context_L44,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L45 = weighted.mean(context_L45,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L46 = weighted.mean(context_L46,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L47 = weighted.mean(context_L47,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L48 = weighted.mean(context_L48,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L49 = weighted.mean(context_L49,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L50 = weighted.mean(context_L50,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L51 = weighted.mean(context_L51,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L52 = weighted.mean(context_L52,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L53 = weighted.mean(context_L53,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L54 = weighted.mean(context_L54,w=onet_oes_emp)) %>%
    dplyr::mutate(uk_context_L55 = weighted.mean(context_L55,w=onet_oes_emp)) %>%
    dplyr::select(c(uksoc2010code,year,
                    uk_context_L1 ,uk_context_L2 ,uk_context_L3 ,uk_context_L4 ,uk_context_L5 ,uk_context_L6 ,uk_context_L7 ,uk_context_L8 ,uk_context_L9 ,uk_context_L10,
                    uk_context_L11,uk_context_L12,uk_context_L13,uk_context_L14,uk_context_L15,uk_context_L16,uk_context_L17,uk_context_L18,uk_context_L19,uk_context_L20,
                    uk_context_L21,uk_context_L22,uk_context_L23,uk_context_L24,uk_context_L25,uk_context_L26,uk_context_L27,uk_context_L28,uk_context_L29,uk_context_L30,
                    uk_context_L31,uk_context_L32,uk_context_L33,uk_context_L34,uk_context_L35,uk_context_L36,uk_context_L37,uk_context_L38,uk_context_L39,uk_context_L40,
                    uk_context_L41,uk_context_L42,uk_context_L43,uk_context_L44,uk_context_L45,uk_context_L46,uk_context_L47,uk_context_L48,uk_context_L49,uk_context_L50,
                    uk_context_L51,uk_context_L52,uk_context_L53,uk_context_L54,uk_context_L55)) %>%
    dplyr::distinct()
}