Project

General

Profile

Support #1685

creating a disabled status variable

Added by William Shufflebottom about 2 years ago. Updated almost 2 years ago.

Status:
Resolved
Priority:
High
Category:
Data management
Start date:
04/20/2022
% Done:

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

  1. DISABILITY STATUS #############################
  1. 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

Wave10 disabled_status full N breakdown.PNG (19.6 KB) Wave10 disabled_status full N breakdown.PNG William Shufflebottom, 04/28/2022 11:36 AM
Wave10 Disabled_status groups N.PNG (6.08 KB) Wave10 Disabled_status groups N.PNG William Shufflebottom, 04/28/2022 11:40 AM
Disabled checks image of code.PNG (136 KB) Disabled checks image of code.PNG William Shufflebottom, 04/28/2022 11:57 AM

Also available in: Atom PDF