Todo esta en al expresión regular, te dejo el enlace de la documentación para que puedas darle una chequeada:
Documentación Exp. Regulares en R
Sí lo que tu deseas realizar es obtener coincidencias de rojo{digito}
entonces está bien tu exp. lo normal podría ser "rojo\\d"
te va devolver las coincidencias de rojo{digito}
pero si deseas lo contrario, quieres las no coincidencias de rojo{digito}
bueno tenemos lo siguiente: "^([^r]+[^o]+[^j]+[^o]+[^\\d]?)$"
Donde primero le decimos que queremos que las palabras empiecen en ^
y finalicen $
lo que esta entre el inicio y el final de toda la cadena queremos que no tenga las siguientes características:
^
(empieza en )
[^r]+
(cualquier carácter que no sea r de uno a más)
[^o]+
(seguido de cualquier carácter que no sea o de una a más)
[^j]+
(seguido de cualquier carácter que no sea j de una a más)
[^o]+
(seguido de cualquier carácter que no sea o de una a más)
[^\\d]?
(seguido de cualquier carácter que no sea un digito y que puede aparecer una o muchas veces --prueba retirando este parámetro para que veas el comportamiento)
$
(que finalice aquí)
Finalmente tú código sería algo similar ah (por favor lee los comentarios en el código):
datos2 <- data.frame(
col1=c("rojo1","morado1","verde4","amarillo","verde","rojo3","abc123","123abc","1abc23"),
col2=c(123,234,222,111,456,345,222,222,222)
)
datos2$col3 <- gsub("rojo\\d", "", datos2$col1) ## retira todas las COINCIDENCIAS de rojo{digito} del arreglo
datos2$col4 <- gsub("^([^r]+[^o]+[^j]+[^o]+[^\\d]?)$", "", datos2$col1) ## retira todas las NO COINCIDENCIAS de rojo{digito} del arreglo
print(datos2)
No olvides realizar la prueba que te comente.
Tu output sería