Цитирование или привязка к списку данных в R

Question

У меня есть некоторое понимание того, как использовать lapply, чтобы, скажем, изменить имена переменных в нескольких кадрах данных в списке. Тем не менее, я ищу немного (но только немного) более сложную операцию.

В частности, я хочу рассчитать средние темпы роста для нескольких объектов. Темпы роста уже вычислены, так что я просто нужен perfor следующих операций на всех dataframes

for (i in 1:13) { 
    growth.type[,i] <- tapply(growth[,8+i] , growth$type, mean, na.rm = TRUE) 
} 

Это создает новый dataframe (growth.type), который включает в себя среднее всех нескольких сот темпов роста в исходном dataframe (growth), type.

Теперь я хотел бы сделать это с несколькими кадрами данных (например, growth) и поместить их в новые dataframes (например, growth.type).

Надеюсь, это имеет смысл.

Answer 1

Поместите все data.frames вы хотите обработать в списке

xy <- list(growth1, growth2, growth3, ...) 

, а затем применить пользовательскую функцию к этому xy объекта.

customFunction <- function(.data) { 
    for (i in 1:13) { 
    growth.type[,i] <- tapply(.data[,8+i] , .data$type, mean, na.rm = TRUE) 
    } 
    growth.type # this is the object which will be returned when function finishes 
} 

тогда вобще

out <- lapply(xy, FUN = customFunction) 

Если вы хотите совместить результат из lapply, вы можете использовать do.call, например, do.call("rbind", out).