clean <- mydata %>%
mutate(new_H4ED1 = recode(H4ED1,
"1" = "finished high school with diploma",
"2" = "earned a high school degree (GED)",
"3" = "earned a certificate of attendance or a certificate of completion",
"4" = "did not receive a high school diploma, equivalency degree (GED), or other certificate",
"8" = "don’t know"))%>%
mutate(new_H4ED2 = recode(H4ED2,
"1" = "8th grade less",
"2" = "Some high school",
"3" = "highschool graduate",
"4" = "some vocational/technical training (after Highschool)",
"5" = "completed vocational/technical training (after highschool)",
"6" = "some college",
"7" = "completed college bachelors degree",
"8" = "some graduate school",
"9" = "completed masters degree",
"10" = "some graduate training",
"11" = "completed doctoral degree",
"12" = "some post baccalaureate professional education"))