Hi, I am stuck with this problem

I want to multiply my data but each proportion of each observation for a different percentage.

As example: if the first observation of my Var_1 has 5000 value.

I want to multiply the proportion between 100 and 1000 by 2% (in this particular case 900 x 2%).

The proportion between 1000 and 2000 by 3% (in this case 1000 x 3%).

And the proportion >2000 by 5% (in this case 3000 x 5%).

And add the sum of this process for each observation in a new variable.

Any idea of how to proceed?

I have these data like example:

```
library(tidyverse)
my_data <- tibble(Var_1 = c(5000, 1500, 350, 1200, 750, 1000,1250, 2500))
```