How can I iterate through a series of columns performing simple regression in R, and save the residuals for each as new variables?

Question

Within my dataframe in R I have 20 columns in sequence containing continuous numeric variables. I want to iterate through these columns and perform the same regression on the ob