personalizar a função de classificação em R

Quero classificar um vetor contendo classificações,

r<-c("A","AA","AAA","BBB","BB","B","CCC")

No entanto, aplicandosort

> sort(r)
[1] "A"   "AA"  "AAA" "B"   "BB"  "BBB" "CCC"

Existe algum método que me permita obter o seguinte

"AAA"   "AA"  "A" "BBB"   "BB"  "B" "CCC"