Is there a faster way than for loops to use facet_wrap_paginate in R?

Question

I\'m trying to use facet_wrap_paginate() from the ggforce package to apply facet_wrap() to a large number of facets that would be unreadab