lookup <- list( \'miles_per_gallon\' = \'mpg\', \'cylinder\' = \'cyl\' ) df1 <- mtcars df2 <- NULL # function to rename columns based on the lookup a