R loop to go split strings of different lengths and paste in specific column in a dataframe based on match

Question

I have a vector that has strings of different length: As the example below:

head(taxon)

[1] "d_Bacteria|g_Thermobaculum"