indexing through function to gather multiple values

Question

I want to extract a sequence of values from this dataframe altogether to form a single output, I can do so individually using:

p <- function(x, i){
 r<-