https://stackoverflow.com/questions/75379217/looping-in-r-with-and-strings