Alternative to mapply to select sample

Question

I created a mapply function to select samples from a dataset but is there any faster ways to do it by avoiding mapply because it is slow and I have a l