https://sophiaidvnote393.blogspot.com/2022/07/r-alphabetize-columns-sort-function.html