Tengo una base de datos parecida a esto:
library(stringr) #Para la función str_extract
ejemplo <- data.frame(columna= c("{ em , 680/3 }", "no 659-11", "no funciona la 2507",
"a-4-2 no funciona", "p-8 con presencia de arena", " no 2-5c12s si sirve",
"mecanica no 1ty -22s brinca"))
Me interesa extraer la parte de cada cadena que sea:
- Número
- Letra más número
- Número más letra
y, en general, las cadenas que se refieran a "identificadores".
Utilizando una sencilla expresión regular, puedo extraer
ejemplo$col2 <- ifelse(grepl("[0-9]+", ejemplo$columna), str_extract(ejemplo$columna, "[0-9]+"), NA)
ejemplo
columna col2
1 { em , 680/3 } 680
2 no 659-11 659
3 no funciona la 2507 2507
4 a-4-2 no funciona 4
5 p-8 con presencia de arena 8
6 no 2-5c12s si sirve 2
7 mecanica no 1ty -22s brinca 1
que sólo tiene un buen resultado para la tercera cadena. Honestamente me siento perdido y no sé si exista una manera de hacer todo lo que quiero de una sola vez o tendré que construir diversas expresiones regulares para lograrlo. Agradezco mucho cualquier orientación al respecto.
El output deseado sería:
deseado
1 680/3
2 659-11
3 2507
4 a-4-2
5 p-8
6 2-5c12s
7 1ty-22s