No seleccionar una palabra

Tengo el siguiente df

datos2<-data.frame(
 col1=c("rojo1","morado1","verde4","amarillo","verde","rojo3"),
 col2=c(123,234,222,111,456,345)
)
      col1 col2
1    rojo1  123
2  morado1  234
3   verde4  222
4 amarillo  111
5    verde  456
6    rojo3  345

Si quisiera borrar el color rojo podría hacer

datos2$col3<-gsub("rojo\d", "", datos2$col1)
      col1 col2     col3
1    rojo1  123         
2  morado1  234  morado1
3   verde4  222   verde4
4 amarillo  111 amarillo
5    verde  456    verde
6    rojo3  345        

¿Cómo es para hacer lo contrario? Quedarme con el rojo y borrar todo lo demás, en plan

gsub( Lo contrario a "rojod", "", datos2$col1)