Tengo los siguientes datos
datos <- read.table(text = 'col1
"Casa Verde CA/BBE/565655/15"
"Casa CA/BBE/2345/15 VERDE"
"Casa Verde _CA/BBE/122281/15_B"
"Casa CA/ABC/1281/2015"
"Casa Azul 5_CA/AAA/1281/2017_B2"
"Casa Verde_5_CA/CCC/12/17"
', header = TRUE, stringsAsFactors = FALSE)
datos:
col1
1 Casa Verde CA/BBE/565655/15
2 Casa CA/BBE/2345/15 VERDE
3 Casa Verde _CA/BBE/122281/15_B
4 Casa CA/ABC/1281/2015
5 Casa Azul 5_CA/AAA/1281/2017_B2
6 Casa Verde_5_CA/CCC/12/17
Los últimos números es el año. Quiero que si pone 15 se cambie por 2015.
La estructura a buscar es:
2 ó más letras/3 letras/ 2 ó más números /dos números
y cambiar los /dos números por 20 dos números (15 -> 2015)
Lo que haya delante o detrás de la estructura a buscar se puede borrar. Quedaría algo como esto:
1 Casa Verde CA/BBE/565655/15 CA/BBE/565655/2015
2 Casa CA/BBE/2345/15 VERDE CA/BBE/2345/2015
3 Casa Verde _CA/BBE/122281/15_B CA/BBE/122281/2015
4 Casa CA/ABC/1281/2015 CA/ABC/1281/2015
5 Casa Azul 5_CA/AAA/1281/2017_B2 CA/AAA/1281/2017
6 Casa Verde_5_CA/CCC/12/17 CA/CCC/12/2017
He probado con
datos$col2 <- stringr::str_replace(datos$col1,"(\\w{2}\\/\\w{3}\\/\\d{2,}\\/)(\\d{2})","\\120\\2")
Pero 2015 se convierte en 202015.
Si pruebo con $
datos$col2 <- stringr::str_replace(datos$col1,"(\\w{2}\\/\\w{3}\\/\\d{2,}\\/)(\\d{2}$)","\\120\\2")
Los que tienen algo detrás del año no cambian. ¿Alguna idea?
str_pad
, el cual aplicaría 2 veces sobre el valor que te interesa, la primera vez para añadir '0' como dígitopad
al inicio, para 3 caracteres y la segunda vez para agregar el dígito '2' comopad
al inicio para 4 caracteres. Pero, poco he trabajado con R y no puedo darte un ejemplo funcional, tal vez alguien con más experiencia pueda desarrollar mi idea. Saludos