# notice that this works
library(tidyverse)
sports_mood <- atus_data |>
  select(SCSTRESS, ACT_SPORTS) |>
  drop_na(SCSTRESS, ACT_SPORTS) |>
  rename(stress = SCSTRESS, sports = ACT_SPORTS) |>
  mutate(stress = factor(stress),
         sports = factor(sports))






         
    stress = haven::as_factor(stress, levels = 0:2,
                    labels = c("Not too stressed", "Pretty stressed", "Very stressed")),
    sports = haven::as_factor(sports, levels = 0:1,
                    labels = c("Did Not Do Sports", "Did Sports"))
  )