How to Recode Age Variable in a Dataset Using R's ifelse() and case_when()