ca_childcare |>
select(study_year,
mc_infant,
mc_toddler,
mc_preschool,
region
) |>
pivot_longer(cols = starts_with("mc_"),
names_to = "age",
values_to = "median_income"
) |>
mutate(age = fct_relevel(age,
"mc_infant",
"mc_toddler",
"mc_preschool")
)