Add Multiple New Columns To Dataframe Function In R