Думаю, mapply - лучший выбор, чем lapply в вашем случае.

Предполагая, что у вас есть переменное количество входных аргументов, вы можете переписать test как

test <- function(pos,...){
  list(pos, ...)
}

Для ввода в ваш пример

data=c(1,4,32,54) #not global
data2=c(2,6,3,21) #not global

используя mapply, вы можете добраться туда:

mapply(test, seq_along(data), data, data2, SIMPLIFY = F)

Использование оператора присваивания «‹ - »:

num_vec <- c(1, 4, 32, 54)

num_vec2 <- c(2, 6, 3, 21)

# Using lapply: 

lapply(seq_along(num_vec), function(x){return(c(x, num_vec[x], num_vec2[x]))})

Использование оператора присваивания "=":

num_vec = c(1, 4, 32, 54)

num_vec2 = c(2, 6, 3, 21)

# Using lapply: 

lapply(seq_along(num_vec), function(x){return(c(x, num_vec[x], num_vec2[x]))})

В приведенном выше случае оператор присваивания не имеет значения и не относится к локальному или глобальному присваиванию.

В ответ на дополнительный запрос о желании получить элементы на основе значения в любом из векторов:

num_vec = c(1, 4, 32, 54)


num_vec2 = c(2, 6, 3, 21)

test <- function(num_vec, num_vec2, val) {
  if (!hasArg(val)) {
    val <- 1:max(c(num_vec, num_vec2))
  } else{
    as.numeric(c(val))
  }

  lapply(seq_along(num_vec),

         function(x) {
           return(c(x, num_vec[x], num_vec2[x]))
         })[ifelse(
           val %in% num_vec &

             !(val %in% num_vec2),

           which(num_vec %in% val),

           ifelse(
             !(val %in% num_vec2) &

               !(val %in% num_vec2),

             0,

             ifelse(
               val %in% num_vec &

                 val %in% num_vec2,

               c(which.min(
                 which(val %in% num_vec), which(val %in% num_vec2)
               ),

               which.max(
                 which(val %in% num_vec), which(val %in% num_vec2)
               )),

               which(val %in% num_vec2)
             )
           )
         )]

}

test(num_vec, num_vec2, 54)

Просто добавив к ответу @hello_friend, вы можете передать аргументы функции, используя lapply. Из вопроса я понимаю, что вы хотите передать функции более одного аргумента. Приведенный ниже код пытается это сделать. Пожалуйста, посмотрите.

vec1 <- c(1, 3, 5, 7)

vec2 <- c(2, 4, 6, 8)

test <- function(pos, vec_arg1, vec_arg2){
  return(c(pos, vec_arg1[pos], vec_arg2[pos]))
}
# Using lapply: 

lapply(seq_along(num_vec), test, vec1, vec2)