how to use case_when and grep together to define a new varaible

Question

I have a data that looks like this,

It can be build using codes:

df<-structure(list(Gender = c("M", "F", "M",