我需要對超過 50 個資料幀重復一個簡單的操作，這需要一個回圈，但我無法組合正確的代碼。
我正在創建一個只有 4 個變數的新資料框，這些變數是通過使用dplyr進行分組和匯總而獲得的。
dataframes <- list(E5000, E5015, E5030, E5045, E5060, E5075, E5090)
E5000_stat <- E5000_stat %>%
group_by(indeximage) %>%
summarise(n_drop = n(), median_area = median(Area..mm.2..), tot_area = sum(Area..mm.2..))
我希望在所有資料幀的回圈中重復相同的操作，因此不必手動修改和重新運行相同的 4 行代碼 50 次。
非常感謝任何幫助。
uj5u.com熱心網友回復：
使用lapply或purrr::map-
library(dplyr)
apply_fun <- function(df) {
df %>%
group_by(indeximage) %>%
summarise(n_drop = n(),
median_area = median(Area..mm.2..),
tot_area = sum(Area..mm.2..))
}
dataframes <- list(E5000, E5015, E5030, E5045, E5060, E5075, E5090)
out <- lapply(dataframes, apply_fun)
out
uj5u.com熱心網友回復：
您可以使用purrr::mapor purrr::map_df（取決于您希望結果是 atibble還是 `list）：
E_stat_func <- . %>%
group_by(indeximage) %>%
summarise(
n_drop = n(),
median_area = median(Area..mm.2..),
tot_area = sum(Area..mm.2..)
)
dataframes_summary <- dataframes %>%
# map(E_stat_func)
map_df(E_stat_func)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/488586.html
上一篇：提取損壞的字串