Hi, so sorry, I include the minimal datasets (clean_db and Provincia):
clean_db <- tibble(provincia = c("AZUY", "BOLI$BAR", "CAN_AR", "GUY$AS", "PICHI.CHA",
"COTPAXI", "MORON/A SANTIAGO"),
ciudad = c("QUITO", "CUENCA", "GUAYAQUIL", "MANTA", "PORTOVIEJO",
"AZOGUES", "SALINAS"))
Provincia <- tibble(codigo = c(1:17),
descripcion = c("AZUAY",
"BOLIVAR",
"CAÑAR",
"CARCHI",
"CHIMBORAZO",
"COTOPAXI",
"EL ORO",
"ESMERALDAS",
"GALAPAGOS",
"GUAYAS",
"IMBABURA",
"LOJA",
"LOS RIOS",
"MANABI",
"MORONA SANTIAGO",
"NAPO",
"SANTO DOMINGO DE LOS TSACHILAS"))
the code is
str_replace(clean_db$provincia, paste(str_sub(clean_db$provincia, 1, 2),
".+",
str_sub(clean_db$provincia, -2),
sep = ""),
as.character(as_tibble(str_extract(Provincia$descripcion,
paste(str_sub(clean_db$provincia, 1, 2),
".+",
str_sub(clean_db$provincia, -2),
sep = ""))) %>% drop_na()))
Regards,
KM