How to better write code for extracting raster data in R. Maybe a loop?

Question

I am still getting my feet wet with R. I have an idea to migrate some ArcView functions into R with the following scripts. I would love to be able to have my df help fill in