如何在 map 中使用 select 獲取數據幀列表

Question

我有一個數據框列表，每個數據框都有相同的列。 我想按索引刪除一些列。 如何在 map function 中使用 select 命令？

這是我的嘗試：

data <- data %>% map(~ select(-c(7, 11, 13, 14))) 

關於我需要如何更改此代碼的任何想法？

非常感謝

Answer 1

你可以試試：

data <- purrr::map(data, ~ . %>% dplyr::select(-c(7, 11, 13, 14))) 

或者在基礎 R 中：

data <- lapply(data, function(x) x[,-c(7, 11, 13, 14)])

更新

這對我dplyr > 0.8

data <- map(data, .f = list(. %>% dplyr::select(-grp)))

Answer 2

我們可以在沒有匿名 function 的情況下做到這一點

data <- lapply(data, `[`, -c(7, 11, 13, 14))