adding spliting column in R dataframe