https://stackoverflow.com/questions/75378483/manipulating-data-set-in-r