<div dir="ltr">Hola,<div><br></div><div>Tengo una base de datos y en uno de las variables/vectores, que es formato character, dentro de ese vector me encuentro que tengo casos con notación científica, casos alfanuméricos etc. </div><div><br></div><div>Tengo que dividir esa variable en dos nuevas variables, de forma tal que me quede una variable con los casos que tengan notación científica para convertir a número, otro que donde tenga los alfanuméricos.</div><div>variable<- c("9,301E+11","8,301E+11","00001-00170818","1000055365","G.A. 001-24699570")<br></div><div>Unidades <- c("remito","remito","remito","remito","remito")<br>base.1<-cbind(variable,Unidades)<br></div><div>base.1</div><div><img src="cid:ii_l3ug89xa0" alt="image.png" width="325" height="239"><br></div><div><br></div><div>Lo que necesito sería separar "variable" asi:</div><div><br></div><div>variable<- c("9,301E+11","8,301E+11","00001-00170818","1000055365","G.A. 001-24699570")<br>variable.1<-c("9,301E+11","8,301E+11",NA,NA,NA)<br>variable.2<-c("","","00001-00170818","1000055365","G.A. 001-24699570")<br>Unidades <- c("remito","remito","remito","remito","remito")<br>base.2<-as.data.frame(cbind(variable,variable.1,variable.2,Unidades)) <br><br></div><div><img src="cid:ii_l3uhq11v1" alt="image.png" width="453" height="189"><br></div><div><br></div><div><div>Lo que no logro hacer es separar "variable" en variable.1 y variable.2. </div><div>Intenté con str_detect dentro de un mutate y con if_else pero no logré que me de el resultado que busco. </div><div></div><div><br></div><div>####</div><div>!str_detect(base2$variable.1,"\\E\\+")) </div><div>str_detect(

base2$variable.1  ,"\\E\\+")) </div><div><br></div><div>Teniendo esa separación luego hago lo siguiente:</div><div><br></div></div><div>## reemplazo comas por puntos "." en  variable.1 para convertir a numérica<br></div><div>## convierto numérica variable.1<br>## y finalmente elimino notación científica <br>base.2$variable.1 <-(gsub(",", ".", base.2$variable.1))<br>base.2$variable.1 <-as.numeric(base.2$variable.1)<br>base.2$variable.1<-format(base.2$variable.1, scientific=F)<br><br>Y finalmente crear una variable "variable.3" que quede así:</div><div><br>## genero una variable final <br>base.2$variable.3<-ifelse(base.2$variable.1=="          NA",base.2$variable.2,base.2$variable.1)<br>view(base.2)  <br></div><div><br></div><div><img src="cid:ii_l3uhse4s2" alt="image.png" width="453" height="145"><br></div><div><br></div><div>Gracias!</div><div><br></div><div>Juan.</div><div><br></div></div>