If else, strsplit, dplyr tutorial