data <- data.frame(col1 =c("FAAP20:NM_001256946:exon3:c.C376T:p.P126S","MAP3K6:NM_001297609:exon13:c.C1842A:p.N614K,MAP3K6:NM_004672:exon14:c.C1866A:p.N622K" ,"MAP3K6:NM_001297609:exon8:c.C1340T:p.T447I,MAP3K6:NM_004672:exon9:c.C1364T:p.T455I" ))
col1
1 FAAP20:NM_001256946:exon3:c.C376T:p.P126S
2 MAP3K6:NM_001297609:exon13:c.C1842A:p.N614K,MAP3K6:NM_004672:exon14:c.C1866A:p.N622K
3 MAP3K6:NM_001297609:exon8:c.C1340T:p.T447I,MAP3K6:NM_004672:exon9:c.C1364T:p.T455I
I want to know how to separate col1 into four columns like the following.
col1 col2 col3 col4 col5
1 FAAP20:NM_001256946:exon3:c.C376T:p.P126S NM_001256946 exon3 c.C376T p.P126S
2 MAP3K6:NM_001297609:exon13:c.C1842A:p.N614K NM_001297609 exon13 c.C1842A p.N614K
3 MAP3K6:NM_001297609:exon8:c.C1340T:p.T447I NM_001297609 exon8 c.C1340T p.T447I