r – Eliminar último número de cada línea


Viene de aquí

¿Cómo elimino el último número de cada frase cuando el número es entero?

df <- data.frame( col1 = c(1,2,3,4,5), 
                  col2 = c("pepe marta juan 2170","300 ww 1.4",
                           "verde 85"," verde (8383)","amarillo rojo tomate.455"))
df$col2<-as.character(df$col2)
  col1                     col2
1    1     pepe marta juan 2170
2    2               300 ww 1.4
3    3                 verde 85
4    4             verde (8383)
5    5 amarillo rojo tomate.455

El resultado buscado sería

 col1                     col2     col3
1    1     pepe marta juan 2170    pepe marta juan
2    2               300 ww 1.4    300 ww 1.4
3    3                 verde 85    verde
4    4             verde (8383)    verde (8383)
5    5 amarillo rojo tomate.455    amarillo rojo tomate.