Support #1685
opencreating a disabled status variable
100%
Description
Hi USoC team,
Could you advise on an appropriate recode for disability status? We are currently using the "health" and "disdif96" variables as shown below to capture those who answer "yes" to being disabled and those who answer "no" to being disabled but nevertheless respond that they do have a condition that
would be considered a disability - So we want to capture those who don't consider themselves disabled but are technically disabled by virtue of having a certain condition. However, the way we have recoded this new "disabled_status" variable (code included below) gives us very large numbers of disabled people (USoC covid wave 8):
Not Disabled - 7180
Disabled - 5060
Can you comment on how we are recoding to capture disabled people and suggest an alternative way to create a "disabled_status" variable (if appropriate) that captures both those who consider themselves disabled and those who are disabled but don't consider themselves disable? We are nearing a publication date so your input is greatly appreciated.
Best wishes
Will
- DISABILITY STATUS #############################
- RECODING AND ADDING FACTORS FOR THE DISABILITY VARIABLES FOR WAVE 8
USocCov8$health_dis <- car::recode(USocCov8$health, "1 = 1; 2 = 2;else = NA")
USocCov8$health_dis <- factor(USocCov8$health_dis, levels = c(1, 2),
labels = c("Yes",
"No"))
USocCov8$disdif96_dis <- car::recode(USocCov8$disdif96, "1 = 1; 0 = 2;else = NA")
USocCov8$disdif96_dis <- factor(USocCov8$disdif96_dis, levels = c(1, 2),
labels = c("No Disability",
"Mentioned Disability"))
USocCov8 <- USocCov8 >%
dplyr::mutate(disabled_status = case_when(
health_dis "Yes" x%x disdif96_dis "Mentioned Disability" ~ "Disabled",
health_dis "No" & disdif96_dis "Mentioned Disability" ~ "Disabled",
health_dis "Yes" & disdif96_dis "No Disability" ~ "Disabled",
health_dis "Yes" & is.na(disdif96_dis) ~ "Disabled",
disdif96_dis "Mentioned Disability" & is.na(health_dis) ~ "Disabled",
health_dis "No" & disdif96_dis "No Disability" ~ "Not Disabled",
health_dis "No" & is.na(disdif96_dis) ~ "Not Disabled",
disdif96_dis "No Disability" & is.na(health_dis) ~ "Not Disabled",
TRUE ~ NA_character_))%>%
mutate(disabled_status = factor(disabled_status,
levels = c("Not Disabled","Disabled")))
Files