R/clean_reweighted_activities.R

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

#' Combine, reshape, and rename reweighted work activities data
#'
#' This function appends the reweighted annual years of O-NET work activities data and reshapes to produce one observation per year and occupation.
#'
#' @param frames A list object of data frames containing the annual, reweighted measures of activities
#'
#' @return Produces a panel database of occupations over 16 years, with 41 activity level and importance measures
#' @export
clean_reweighted_activities <- function(frames=NULL) {

  data <- dplyr::bind_rows(frames)
  data <- as.data.table(data)

  reshaped <- reshape(data=data,
                      idvar=c("onetsoc2010code","year"),
                      timevar= "element",
                      v.names=c("data_I","data_L"),
                      direction="wide",
                      sep="")

  reshaped.label <- reshaped %>%
    dplyr::rename("activity_I1"  = "data_IAnalyzing Data or Information"    ,"activity_L1"  = "data_LAnalyzing Data or Information",
                  "activity_I2"  = "data_IAssisting and Caring for Others"  ,"activity_L2"  = "data_LAssisting and Caring for Others",
                  "activity_I3"  = "data_ICoaching and Developing Others"   ,"activity_L3"  = "data_LCoaching and Developing Others",
                  "activity_I4"  = "data_ICommunicating with Persons Outside Organization"    ,"activity_L4"  = "data_LCommunicating with Persons Outside Organization",
                  "activity_I5"  = "data_ICommunicating with Supervisors, Peers, or Subordinates"    ,"activity_L5"  = "data_LCommunicating with Supervisors, Peers, or Subordinates",
                  "activity_I6"  = "data_IControlling Machines and Processes"    ,"activity_L6"  = "data_LControlling Machines and Processes",
                  "activity_I7"  = "data_ICoordinating the Work and Activities of Others"    ,"activity_L7"  = "data_LCoordinating the Work and Activities of Others",
                  "activity_I8"  = "data_IDeveloping and Building Teams"    ,"activity_L8"  = "data_LDeveloping and Building Teams",
                  "activity_I9"  = "data_IDeveloping Objectives and Strategies"    ,"activity_L9"  = "data_LDeveloping Objectives and Strategies",
                  "activity_I10" = "data_IDocumenting/Recording Information"    ,"activity_L10" = "data_LDocumenting/Recording Information",
                  "activity_I11" = "data_IDrafting, Laying Out, and Specifying Technical Devices, Parts, and Equipment"    ,"activity_L11" = "data_LDrafting, Laying Out, and Specifying Technical Devices, Parts, and Equipment",
                  "activity_I12" = "data_IEstablishing and Maintaining Interpersonal Relationships"    ,"activity_L12" = "data_LEstablishing and Maintaining Interpersonal Relationships",
                  "activity_I13" = "data_IEstimating the Quantifiable Characteristics of Products, Events, or Information"    ,"activity_L13" = "data_LEstimating the Quantifiable Characteristics of Products, Events, or Information",
                  "activity_I14" = "data_IEvaluating Information to Determine Compliance with Standards"    ,"activity_L14" = "data_LEvaluating Information to Determine Compliance with Standards",
                  "activity_I15" = "data_IGetting Information"    ,"activity_L15" = "data_LGetting Information",
                  "activity_I16" = "data_IGuiding, Directing, and Motivating Subordinates"    ,"activity_L16" = "data_LGuiding, Directing, and Motivating Subordinates",
                  "activity_I17" = "data_IHandling and Moving Objects"    ,"activity_L17" = "data_LHandling and Moving Objects",
                  "activity_I18" = "data_IIdentifying Objects, Actions, and Events"    ,"activity_L18" = "data_LIdentifying Objects, Actions, and Events",
                  "activity_I19" = "data_IInspecting Equipment, Structures, or Material"    ,"activity_L19" = "data_LInspecting Equipment, Structures, or Material",
                  "activity_I20" = "data_IInteracting With Computers"    ,"activity_L20" = "data_LInteracting With Computers",
                  "activity_I21" = "data_IInterpreting the Meaning of Information for Others"    ,"activity_L21" = "data_LInterpreting the Meaning of Information for Others",
                  "activity_I22" = "data_IJudging the Qualities of Things, Services, or People"    ,"activity_L22" = "data_LJudging the Qualities of Things, Services, or People",
                  "activity_I23" = "data_IMaking Decisions and Solving Problems"    ,"activity_L23" = "data_LMaking Decisions and Solving Problems",
                  "activity_I24" = "data_IMonitor Processes, Materials, or Surroundings"    ,"activity_L24" = "data_LMonitor Processes, Materials, or Surroundings",
                  "activity_I25" = "data_IMonitoring and Controlling Resources"    ,"activity_L25" = "data_LMonitoring and Controlling Resources",
                  "activity_I26" = "data_IOperating Vehicles, Mechanized Devices, or Equipment"    ,"activity_L26" = "data_LOperating Vehicles, Mechanized Devices, or Equipment",
                  "activity_I27" = "data_IOrganizing, Planning, and Prioritizing Work"    ,"activity_L27" = "data_LOrganizing, Planning, and Prioritizing Work",
                  "activity_I28" = "data_IPerforming Administrative Activities"    ,"activity_L28" = "data_LPerforming Administrative Activities",
                  "activity_I29" = "data_IPerforming for or Working Directly with the Public"    ,"activity_L29" = "data_LPerforming for or Working Directly with the Public",
                  "activity_I30" = "data_IPerforming General Physical Activities"    ,"activity_L30" = "data_LPerforming General Physical Activities",
                  "activity_I31" = "data_IProcessing Information"    ,"activity_L31" = "data_LProcessing Information",
                  "activity_I32" = "data_IProvide Consultation and Advice to Others"    ,"activity_L32" = "data_LProvide Consultation and Advice to Others",
                  "activity_I33" = "data_IRepairing and Maintaining Electronic Equipment"    ,"activity_L33" = "data_LRepairing and Maintaining Electronic Equipment",
                  "activity_I34" = "data_IRepairing and Maintaining Mechanical Equipment"    ,"activity_L34" = "data_LRepairing and Maintaining Mechanical Equipment",
                  "activity_I35" = "data_IResolving Conflicts and Negotiating with Others"    ,"activity_L35" = "data_LResolving Conflicts and Negotiating with Others",
                  "activity_I36" = "data_IScheduling Work and Activities"    ,"activity_L36" = "data_LScheduling Work and Activities",
                  "activity_I37" = "data_ISelling or Influencing Others"    ,"activity_L37" = "data_LSelling or Influencing Others",
                  "activity_I38" = "data_IStaffing Organizational Units"    ,"activity_L38" = "data_LStaffing Organizational Units",
                  "activity_I39" = "data_IThinking Creatively"    ,"activity_L39" = "data_LThinking Creatively",
                  "activity_I40" = "data_ITraining and Teaching Others"    ,"activity_L40" = "data_LTraining and Teaching Others",
                  "activity_I41" = "data_IUpdating and Using Relevant Knowledge"    ,"activity_L41" = "data_LUpdating and Using Relevant Knowledge")

  ###### here eventually add some code to rescale the incumbent/expert skill measures

  return(reshaped.label)

}