R/clean_reweighted_abilities.R

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

#' Combine, reshape, and rename reweighted abilities data
#'
#' This function appends the reweighted annual years of O-NET abilities 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 abilities
#'
#'
#' @return Produces a panel database of occupations over 16 years, with 52 ability level and importance measures
#' @export
clean_reweighted_abilities <- 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("ability_I1"  = "data_IArm-Hand Steadiness"      ,"ability_L1"  = "data_LArm-Hand Steadiness",
                  "ability_I2"  = "data_IAuditory Attention"       ,"ability_L2"  = "data_LAuditory Attention",
                  "ability_I3"  = "data_ICategory Flexibility"     ,"ability_L3"  = "data_LCategory Flexibility",
                  "ability_I4"  = "data_IControl Precision"        ,"ability_L4"  = "data_LControl Precision",
                  "ability_I5"  = "data_IDeductive Reasoning"      ,"ability_L5"  = "data_LDeductive Reasoning",
                  "ability_I6"  = "data_IDepth Perception"         ,"ability_L6"  = "data_LDepth Perception",
                  "ability_I7"  = "data_IDynamic Flexibility"      ,"ability_L7"  = "data_LDynamic Flexibility",
                  "ability_I8"  = "data_IDynamic Strength"         ,"ability_L8"  = "data_LDynamic Strength",
                  "ability_I9"  = "data_IExplosive Strength"       ,"ability_L9"  = "data_LExplosive Strength",
                  "ability_I10" = "data_IExtent Flexibility"       ,"ability_L10" = "data_LExtent Flexibility",
                  "ability_I11" = "data_IFar Vision"               ,"ability_L11" = "data_LFar Vision",
                  "ability_I12" = "data_IFinger Dexterity"         ,"ability_L12" = "data_LFinger Dexterity",
                  "ability_I13" = "data_IFlexibility of Closure"   ,"ability_L13" = "data_LFlexibility of Closure",
                  "ability_I14" = "data_IFluency of Ideas"         ,"ability_L14" = "data_LFluency of Ideas",
                  "ability_I15" = "data_IGlare Sensitivity"        ,"ability_L15" = "data_LGlare Sensitivity",
                  "ability_I16" = "data_IGross Body Coordination"  ,"ability_L16" = "data_LGross Body Coordination",
                  "ability_I17" = "data_IGross Body Equilibrium"   ,"ability_L17" = "data_LGross Body Equilibrium",
                  "ability_I18" = "data_IHearing Sensitivity"      ,"ability_L18" = "data_LHearing Sensitivity",
                  "ability_I19" = "data_IInductive Reasoning"      ,"ability_L19" = "data_LInductive Reasoning",
                  "ability_I20" = "data_IInformation Ordering"     ,"ability_L20" = "data_LInformation Ordering",
                  "ability_I21" = "data_IManual Dexterity"         ,"ability_L21" = "data_LManual Dexterity",
                  "ability_I22" = "data_IMathematical Reasoning"   ,"ability_L22" = "data_LMathematical Reasoning",
                  "ability_I23" = "data_IMemorization"             ,"ability_L23" = "data_LMemorization",
                  "ability_I24" = "data_IMultilimb Coordination"   ,"ability_L24" = "data_LMultilimb Coordination",
                  "ability_I25" = "data_INear Vision"              ,"ability_L25" = "data_LNear Vision",
                  "ability_I26" = "data_INight Vision"             ,"ability_L26" = "data_LNight Vision",
                  "ability_I27" = "data_INumber Facility"          ,"ability_L27" = "data_LNumber Facility",
                  "ability_I28" = "data_IOral Comprehension"       ,"ability_L28" = "data_LOral Comprehension",
                  "ability_I29" = "data_IOral Expression"          ,"ability_L29" = "data_LOral Expression",
                  "ability_I30" = "data_IOriginality"              ,"ability_L30" = "data_LOriginality",
                  "ability_I31" = "data_IPerceptual Speed"         ,"ability_L31" = "data_LPerceptual Speed",
                  "ability_I32" = "data_IPeripheral Vision"        ,"ability_L32" = "data_LPeripheral Vision",
                  "ability_I33" = "data_IProblem Sensitivity"      ,"ability_L33" = "data_LProblem Sensitivity",
                  "ability_I34" = "data_IRate Control"             ,"ability_L34" = "data_LRate Control",
                  "ability_I35" = "data_IReaction Time"            ,"ability_L35" = "data_LReaction Time",
                  "ability_I36" = "data_IResponse Orientation"     ,"ability_L36" = "data_LResponse Orientation",
                  "ability_I37" = "data_ISelective Attention"      ,"ability_L37" = "data_LSelective Attention",
                  "ability_I38" = "data_ISound Localization"       ,"ability_L38" = "data_LSound Localization",
                  "ability_I39" = "data_ISpatial Orientation"      ,"ability_L39" = "data_LSpatial Orientation",
                  "ability_I40" = "data_ISpeech Clarity"           ,"ability_L40" = "data_LSpeech Clarity",
                  "ability_I41" = "data_ISpeech Recognition"       ,"ability_L41" = "data_LSpeech Recognition",
                  "ability_I42" = "data_ISpeed of Closure"         ,"ability_L42" = "data_LSpeed of Closure",
                  "ability_I43" = "data_ISpeed of Limb Movement"   ,"ability_L43" = "data_LSpeed of Limb Movement",
                  "ability_I44" = "data_IStamina"                  ,"ability_L44" = "data_LStamina",
                  "ability_I45" = "data_IStatic Strength"          ,"ability_L45" = "data_LStatic Strength",
                  "ability_I46" = "data_ITime Sharing"             ,"ability_L46" = "data_LTime Sharing",
                  "ability_I47" = "data_ITrunk Strength"           ,"ability_L47" = "data_LTrunk Strength",
                  "ability_I48" = "data_IVisual Color Discrimination" ,"ability_L48" = "data_LVisual Color Discrimination",
                  "ability_I49" = "data_IVisualization"               ,"ability_L49" = "data_LVisualization",
                  "ability_I50" = "data_IWrist-Finger Speed"          ,"ability_L50" = "data_LWrist-Finger Speed",
                  "ability_I51" = "data_IWritten Comprehension"       ,"ability_L51" = "data_LWritten Comprehension",
                  "ability_I52" = "data_IWritten Expression"          ,"ability_L52" = "data_LWritten Expression")

  return(reshaped.label)

}