It will be difficult to help unless you can also provide the data you're using, in text form, rather than an image, and similarly for the code. You can do this by paste text between a pair of triple backticks (```), like this:
```
[output of dput([your table]) here]
[your code here]
```
If your table (or table) is longer than 25-50 rows, the use dput([your table %>% slice(1:50)]) instead.
Could you do that? It would help folks be able to help you better.