In R is there a better option than a nested if else statement? i would like to have something more cleaner with less parenthesis

Question

For example i am using this. though it works I have to put in extra more entries and i can\'t imagine creating so many parenthesis at the end while my code is shifting to th