Trying to change raw data to categorical groups that can be used in analysis.
Data to look like this 
df=df %>%
mutate(
Swedish=factor(Swedish, levels=c("Checked", "Unchecked")
)
NEWdf$Country=df %>%
case_when(
Swedish="Checked"~"Swedish",
#ect for other Nationalities,
.default="Other"
)
In this case it should be inside a mutate
output