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

只需使用datagen = dict( horizontal_flip=True, vertical_flip=True, width_shift_range = 0.1, height_shift_range = 0.1, data_format = "channels_first", preprocessing_function = [foo1, foo2, ...] ) 来保留行数大于一的数据表元素：

Filter()