Please see the FAQ: What's a reproducible example (`reprex`) and how do I do one? Using a reprex, complete with representative data will attract quicker and more answers.
Here, without the data needed for
pops <- read_csv("nst-est2019-popchg2010_2019.csv")
there's a high hurdle to attract good answer--the problem needs to be reverse engineered from other data. That's sometimes possible but a deterrent for the large majority.