Calculating Weighted Sums with Multiple Columns in R Using Tidyverse