How To Loop Through Columns In A Dataframe R