Estoy intentando extraer de esta tabla
RFO:
DP=252;AD=1,243;VDB=1.04556e-09;SGB=-0.693147;RPB=1;MQB=1;MQSB=0.619406;BQB=1;MQ0F=0;AC=2;AN=2;DP4=1,0,117,127;MQ=40
DP=248;AD=0,221;VDB=0.0177027;SGB=-0.693147;MQSB=0.203823;MQ0F=0;AC=2;AN=2;DP4=0,0,200,22;MQ=39
DP=247;AD=0,222;VDB=0.0131104;SGB=-0.693147;MQSB=0.203823;MQ0F=0;AC=2;AN=2;DP4=0,0,200,22;MQ=39
DP=34;AD=1,7;VDB=0.000100657;SGB=-0.636426;RPB=1;MQB=1;MQSB=1;BQB=1;MQ0F=0;ICB=1;HOB=0.5;AC=1;AN=2;DP4=0,1,7,0;MQ=28
DP=248;AD=1,169;VDB=0.406213;SGB=-0.693147;RPB=1;MQB=1;MQSB=0.96677;BQB=1;MQ0F=0;AC=2;AN=2;DP4=0,1,120,50;MQ=32
Los valores DP4 con cada uno de los digitos que tiene. He intentado usar esta función para extraerlos pero sin exito:
RFO <- RFO %>%
mutate(TOTAL_DEPTH= {str_extract(INFO, "DP4=[A-Z][0-9]{4,5}[A-Z]?")}
mutate(TOTAL_DEPTH= {str_extract(INFO, "DP4=[A-Z][0-9]{4,5}[A-Z]?") %>%
str_remove("DP4=") %>%
as.numeric() } )
Además cuando uso esta función:
RFO <- RFO %>%
mutate(TOTAL_DEPTH= {str_extract(INFO, "DP4=[0-9]*")}
mutate(TOTAL_DEPTH= {str_extract(INFO, "DP4=[0-9]*") %>%
str_remove("DP4=") %>%
as.numeric() } )
Se me genera una columna (TOTAL_DEPTH) con solo el primer digito de DP4 y me gustaría recoger los cuatro digitos.
¿Dónde está mi fallo?
Gracias de antemano.