Стирание определенных строк нескольких фреймов данных в списке

Предположим, у меня есть такой список, включающий 3 фрейма данных с именами 1, 3 и 4:

        1                   3           4  
1   A   c(2, 1, 3, 1, 2)    c(1, 1, 2)  c(1, 1)
2   B   c(1, 1, 1, 3, 2)    c(2, 1, 2)  c(2, 1)

Кадры данных имеют все те же столбцы (A и B), но, как вы видите, разное количество строк. Как стереть строки со значениями ‹ 2 в столбце B для всех фреймов данных в списке?

Я пробовал lapply с любым:

list <- lapply(list, function(x) {x <- any(x[,c(2)] < 2);x})

r list dataframe row erase
person Thomas Langkamp    schedule 10.08.2011    source источник

Ответы (2)


arrow_upward
3
arrow_downward

Разумное использование lapply() и простых подмножеств так же хорошо, как и любой другой подход. Используя ваши данные в l:

l <- list("1" = data.frame(A = c(2, 1, 3, 1, 2), B = c(1, 1, 1, 3, 2)),
          "3" = data.frame(A = c(1,1,2), B = c(2,1,2)),
          "4" = data.frame(A = c(1,1), B = c(2,1)))

Это делает то, что вы хотите

lapply(l, function(x) x[x$B >= 2,])

давая:

> lapply(l, function(x) x[x$B >= 2,])
$`1`
  A B
4 1 3
5 2 2

$`3`
  A B
1 1 2
3 2 2

$`4`
  A B
1 1 2
person Gavin Simpson    schedule 10.08.2011

arrow_upward
1
arrow_downward

Как насчет такого:

lst <- lapply(lst, function(x) {subset(x, B >= 2)})
person joran    schedule 10.08.2011