How to add several tmap together (to create percent volume contour) using for loop in r

Question

I was trying to creating a new function in R to quickly produce percent volume contour. I use "..." because I want to have the freedom of choosing the number of co