I have a data frame like this:
name weight r apple 0.5 y pear 0.4 y cherry 0.1 g watermelon 5.0 pp grape 0.5 y appl
Let's say your data frame is called 'df'
library(reshape2) df$name = colsplit(df$name," ", names = c("chuck","name"))[,2]