In R, suppose I have a string vector composed of words:

string1<-c("1ST COMPANY", "21ST LIBRARY")

However, within these strings, I want to convert ordinal number words like “1ST” into “First” and “21ST” into “Twenty-first”. Is there any way to convert these ordinal number strings into just words like “First”? My ideal output would be:

string2<-c("FIRST COMPANY", "TWENTY-FIRST LIBRARY")