How to apply custom function to multiple columns in R and store many dataframes using loops