Looping over a column and replacing values if condition is met in r

Question

I\'m still a beginner to R, and I\'m trying to figure out how to rewrite my indexing in my loop.

I have a column party that just lists political party af