Weekly Weights Calculations in R Using dplyr

Question

I have the following data and looking to create the "Final Col" shown below using dplyr in R.

Please note, the "Trees" main category has a value o