In R, dividing one column vector into different columns, according to the first characters

Question

I have this kind of column vector, but with 15000 rows:

df <- data.frame(c("aaa000_587","aaa000_201","aaa000_577","axx005_