# split by space, put in columns
stringr::str_split_fixed('Metronidazol Injection', '\\s+',2) [,1] [,2]
[1,] "Metronidazol" "Injection"
# a vector
v <- c('Metronidazol Injection', 'Gentamicin Injection')
stringr::str_split_fixed(v, '\\s+',2) [,1] [,2]
[1,] "Metronidazol" "Injection"
[2,] "Gentamicin" "Injection"