Wyodrębnij numer z pola stringowego r

df$clean_column<-gsub("[^0-9]", "", df$dirty_column)
Bored Barracuda