create additional columns with a set of formulas in r

Question

I need to create many additional columns in my data frame. To achieve this, I\'m doing the following to my data (var4 and var5). What are some ways to make this more elegant/fas