Joining Data with Weighted Averages and Multiple Weights in R Using dplyr and Purrr