Why the mutate function dose not work in R?

Question

I do not know what is wrong with my code. I want to total/sum(total column. But, it just filled by 1. I wrote this code:

eth_3 <- pop %>% 
  fi