Tengo el siguiente df
datos2<-data.frame(
col1=c("rojo","rojo","verde","rojo","verde","rojo"),
col2=c(123,234,222,111,456,345),
col3=c("Esp 1",NA,NA,NA,"Psp 4",NA)
)
col1 col2 col3
1 rojo 123 Esp 1
2 rojo 234 <NA>
3 verde 222 <NA>
4 rojo 111 <NA>
5 verde 456 Psp 4
6 rojo 345 <NA>
Quiero añadir a la col3 la palabra Esp seguido del primer digito de la col2 solo si la col1 es rojo
Algo asi como
ifelse(datos2$col1 =="rojo" & grepl("(\\d{1})", datos2$col2)....añadir Esp \\1 a la col3
El resultado buscado es el siguiente:
col1 col2 col3
1 rojo 123 Esp 1
2 rojo 234 Esp 2
3 verde 222 <NA>
4 rojo 111 Esp 1
5 verde 456 Psp 4
6 rojo 345 Esp 3