I have a data that looks like this:
df<-structure(list(`Hobby 1` = c("Drawing", NA, "Singing", "drawing"
), `Hobby 2` = c(NA, NA, "reading", "singing"), `Hobby 3` = c(NA,
NA, NA, "reading")), row.names = c(NA, -4L), class = c("tbl_df",
"tbl", "data.frame"))
Is it a way I can build a summary varaible for it that will looks like this:

