R List удаляет все записи списка, которые имеют одну строку

Question

У меня есть данные, которые я перечисляю с помощью функции, lapply:

Например:

library(data.table)

# example data
data <- data.frame(D = rep(c("111"), 8),
                    I = c(rep("2012", 5), "2014", "2013", "2013"),
                    S = rep(c("1000", "2000"), 4))
list=lapply(X=colnames(data),FUN=function(X) setDT(data)[, .(Anzahl = .N), by = X][order(-Anzahl),])

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

В качестве альтернативы я могу удалить все столбцы, которые имеют только один фактор (в примере D, потому что они все одинаковы).

Answer 1

Просто используйте Filter(), чтобы сохранить элементы таблицы данных со строками больше единицы:

list <- Filter(function(dt) nrow(dt) > 1, list)