lapply функции при изменении значения аргумента для каждого элемента списка

Question

У меня есть список данных фреймов

listofdf <- list(a = a, b = b, c = c) 

У меня есть функция:

remove_outliers <- function(x, ll, ul) { 
    require(dplyr) 
    x <- x %>% filter(SALES < quantile(SALES, probs = c(ll)) & SALES > quantile(SALES, probs = c(ul))) 
    return(x) 
} 

Я хочу, чтобы применить эту функцию в списке , Условие состоит в том, что значение аргументов ul и ll в изменении функции для каждого элемента списка.

Я не могу написать:lapply(listofdf, remove_outliers, 0.01, 0.99), потому что 0,01 & 0,99 изменяются в зависимости от ФР.

У меня есть подозрение, что это может быть решена с помощью Map или mapply поэтому я попытался это:

listofdf <- Map(remove_outliers, listofdf, MoreArgs = list(ll = c(0.1, 0.2, 0.3), ul = c(0.90, 0.95, 0.99)))

, но я получил ошибки:

Warning messages: 
1: In filter_impl(.data, dots) : 
    longer object length is not a multiple of shorter object length 
2: In filter_impl(.data, dots) : 
    longer object length is not a multiple of shorter object length 
3: In filter_impl(.data, dots) : 
    longer object length is not a multiple of shorter object length 
4: In filter_impl(.data, dots) : 
    longer object length is not a multiple of shorter object length 

Answer 1

Почему не связываются в единую dataframe ?

big_data = 
    listofdf %>% 
    bind_rows(.id = "source") 

Answer 2

Здесь я попробовал с фиктивной функцией removeOutlier

remove_outliers <- function(x, ll, ul) { 
return(x>ll & x< ul) 
} 
listofdf <- list(a = 1:10, b = 100:120, c = 1000:1010) 

filt<- mapply(FUN=remove_outliers, listofdf , 
    ll=c(2,102,1004), ul=c(8,117,1008) ) 

res<- mapply(FUN="[", listofdf,filt) 
res 

Answer 3

Там может быть проблема с тем, как вы передаете аргументы. Просто попробуйте:

mapply(remove_outilers, l, ll = c(0.1, 0.2, 0.3), ul = c(0.90, 0.95, 0.99))