lapply(our_list, function(X) X[X$AMOUNT >= 0,])
[[1]]
NAME TIME AMOUNT
1 1 20 456
4 4 12 267
[[2]]
NAME TIME AMOUNT
2 2 30 23
Данные:
our_list <- list(
data.frame(
NAME = 1:4,
TIME = c(20L, 30L, 15L, 12L),
AMOUNT = c(456L,-234L, -13L, 267L)
),
data.frame(
NAME = 1:4,
TIME = c(20L, 30L, 15L, 12L),
AMOUNT = c(-6L, 23L, -13L, -26L)
)
)