R удалить столбец df из списка

Question

Привет У меня есть следующая структура:

list
- list
-- df
--- column

образец данных

participants <- list(list(data.frame("col1", "col2"),data.frame("col1", "col2"),data.frame("col1", "col2")),
         list(data.frame("col1", "col2"),data.frame("col1", "col2"),data.frame("col1", "col2")))

Я пытаюсь удалить col1 для каждого кадра данных каждого участника. Я могу сделать это индивидуально с participants[[1]][[2]]$col1 <- NULL, но я пытаюсь автоматизировать это с помощью Al oop. Они не возвращают ошибку, но, похоже, ничего не делают.

for( p in participants){
  for (i in p){
    i$col1 <- NULL
  }
}

drop <- c("col1")
for( p in participants){
  for (i in p){
    i[ , !(names(i) %in% drop)]
  }
}

Answer 1

Нам нужен двойной l oop, что-то вроде:

lapply(myList, function(i) lapply(i, function(j) j[, !colnames(j) %in% drop ]))

Answer 2

Вот решение с использованием dplyr и purrr.

library(purrr)
library(dplyr)


p <- list(list(data.frame("col1", "col2"),data.frame("col1", "col2"),data.frame("col1", "col2")),
         list(data.frame("col1", "col2"),data.frame("col1", "col2"),data.frame("col1", "col2")))

map_depth(p, 2, ~select(.x, -X.col1.))