我希望能够获取数据表中所有组的交集。假设有以下数据:
data.table(a=c(1,2,3, 2, 3,2), myGroup=c("x","x","x", "y", "z","z"))
我希望您能提供以下结果:
2
我知道
Reduce(intersect, list(c(1,2,3), c(2), c(3,2)))
使用data.table查询可以得到我想要的结果,但我不知道如何生成数据表查询结果中组的列表。
我希望能够获取数据表中所有组的交集。假设有以下数据:
data.table(a=c(1,2,3, 2, 3,2), myGroup=c("x","x","x", "y", "z","z"))
我希望您能提供以下结果:
2
我知道
Reduce(intersect, list(c(1,2,3), c(2), c(3,2)))
使用data.table查询可以得到我想要的结果,但我不知道如何生成数据表查询结果中组的列表。
我建议您可以尝试以下方式使用Reduce
(假设dt
是您的数据)
Reduce(intersect, dt[, .(list(unique(a))), myGroup]$V1)
## [1] 2
nGroups <- length(unique(dt[,myGroup]))
dt[, if(length(unique(myGroup))==nGroups) .BY else NULL, by="a"][[1]]
# [1] 2
以下是一些解释性注释。
## Mark down the number of groups in your data set
nGroups <- length(unique(dt[,myGroup]))
## Then, use `by="a"` to examine in turn subsets formed by each value of "a".
## For subsets having the full complement of groups
## (i.e. those for which `length(unique(myGroup))==nGroups)`,
## return the value of "a" (stored in .BY).
## For the other subsets, return NULL.
dt[, if(length(unique(myGroup))==nGroups) .BY else NULL, by="a"][[1]]
# [1] 2
V1
列中返回x,y,z
的组的a
值。请保留HTML标签。dt[,list(list(unique(myGroup))), by="a"]
# a V1
# 1: 1 x
# 2: 2 x,y,z
# 3: 3 x,z