自動處理

Question

以下功能正在與數據集data21

charaFun <- function(col, data=data21) { 
    locus<-data[,col] 
    mean(locus, na.rm=T) 
    } 
charaFun("TAPSE") 

現在我希望它被應用到另一數據集的例如作爲特定條件的數據21的子集的「data211」，「data212」，「data21m1」，「data21w2」。 我如何自動實現這一點？

Answer 1

您可以將數據集放在list中，並使用lapply一次處理它。

lst1 <- list(data211, data212, dat21m1, data21w2) 

或者，如果對象名稱有一個特定的模式

lst1 <- mget(ls(pattern="data\\d+")) 


lapply(lst1, function(x) charaFun("TAPSE", data=x))