data-raw/onet_to_uksoc.R

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

  # read in the SOC 2010 to O*NET SOC 2010 crosswalks

  ## ONET to SOC crosswalk
cascot.data <- as.data.table(readxl::read_xls("data/CASCOT output/Occupation Data coded.xls",
                                         range="A1:AL370",
                                         sheet="SOCtoMultiONET")) %>%
    dplyr::select(-c("Title","Index")) %>%
    dplyr::rename("uksoc2010code"="New and old combined")

cascot <- reshape(cascot.data,idvar="uksoc2010code",direction="long",varying=2:36,sep="")


cascot <- cascot %>%
  dplyr::rename("onetsoc2010code"="ONET") %>%
  dplyr::select(c("uksoc2010code","onetsoc2010code")) %>%
  dplyr::filter(!is.na(onetsoc2010code))