Is there an R function to extract the first word of strings that have different lengths? I extracted the column of my interest from a dataframe, this is composed of several