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的值在列表中的每個元素的函數更改中。

我不能寫：這取決於DFlapply(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

爲什麼不綁定到一個單一的數據幀？

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))