根据R中的长度从列表中选择元素
Selecting elements from list based on length in R
我有这个约 270'000 个元素的列表,每个元素的长度为 165 或 166。我想要的是将那些长度为 165 的元素隔离到一个单独的数据集中。
这个有用吗:
set.seed(1)
mylist <- list(sample(1:10, 165, T), sample(1:10, 166, T), sample(1:10, 165, T), sample(1:10, 166, T))
l1 <- mylist[sapply(mylist, function(x) length(x) == 165)]
l2 <- mylist[sapply(mylist, function(x) length(x) == 166)]
尝试使用 lengths
:
result <- data2[lengths(data2) == 165]
其他几个选项包括:
result <- Filter(function(x) length(x) == 165, data2)
result <- purrr::keep(data2, ~length(.x) == 165)
result <- purrr::discard(data2, ~length(.x) != 165)
我们可以使用:
data2[sapply(mylist, length) == 165]
如何select先验函数中的2项组合列表:
rules <- apriori(Groceries,parameter = list(support = 0.01, confidence = 0.01, minlen = 2, maxlen = 2))
summary(rules3)
这个有用吗:
set.seed(1)
mylist <- list(sample(1:10, 165, T), sample(1:10, 166, T), sample(1:10, 165, T), sample(1:10, 166, T))
l1 <- mylist[sapply(mylist, function(x) length(x) == 165)]
l2 <- mylist[sapply(mylist, function(x) length(x) == 166)]
尝试使用 lengths
:
result <- data2[lengths(data2) == 165]
其他几个选项包括:
result <- Filter(function(x) length(x) == 165, data2)
result <- purrr::keep(data2, ~length(.x) == 165)
result <- purrr::discard(data2, ~length(.x) != 165)
我们可以使用:
data2[sapply(mylist, length) == 165]
如何select先验函数中的2项组合列表:
rules <- apriori(Groceries,parameter = list(support = 0.01, confidence = 0.01, minlen = 2, maxlen = 2))
summary(rules3)