How can i find the five longest words in stringr::words

Question

I have a sample named new that are sampled from words I have to find the 5 longest words of this sample.I\'m not allowed to use grep.