Nice for grouping and summing in R

Turn a multi-valued variable into a binary variable