Динамические условия для подмножества в R

Question

У меня есть список, определенный следующим образом:

cond <- list(list(1), list(1, 2), list(1, 2, 3)) 

На основании этого cond списка Я хочу сделать Подменю. В тривиальном жестко закодированном случае, я делаю это так:

t1 <- subset(dat, group == 1) 
t2 <- subset(dat, group == 1 | group == 2) 
# etc 

Теперь я хочу, чтобы перейти от этого жестких кодированных решений динамического. В псевдокоде это будет выглядеть так:

ts <- list() 
i <- 1 
for(lst in cond){ 
    ts[i] <- subset(dat, group in lst) # <- This is what I want 
    i <- i + 1 
} 

Другими словами, я хочу, чтобы перейти от этого:

group == 1 | group == 2  

к этому:

group in lst 

Но я не знаю, как это реализовать.

Answer 1

Здесь нет списков списков. Список векторов как

gs <- list(1, 1:2, 1:3) 

должен работать нормально, а затем

ts <- lapply(gs, function(x) dat[dat$group %in% x, ]) 

Я не использую subset в свете этой записки от ?subset:

Это удобная функция предназначенный для интерактивного использования. Для программирования лучше использовать стандартные функции подмножества, такие как [, и, в частности, нестандартная оценка подмножества аргументов может иметь непредвиденные последствия.