我有一个简单的数据框，其中包含组 ID 和每个组的元素，如下所示：
x <- data.frame("ID" = c(1,1,1,2,2,2,3,3,3), "Values" = c(3,5,7,2,4,5,2,4,6))
每个 ID 可能有不同数量的元素。现在我想找到所有具有与其他 ID 不同元素的 ID。在此示例中，将选择 ID1 和 ID3，因为它们具有不同的元素（3、5、7 与 2、4、6）。我还想将这些唯一 ID 及其元素复制到一个新的数据框中，类似于原始数据框。
我将如何在 R 中做到这一点？我的 R 技能非常有限。
非常感谢！
最佳，
【问题讨论】：
dput(data)。您还应该包括一个示例，说明您想要的结果是什么样的，因为仅从阅读中判断可能会很棘手。另外，包括您迄今为止尝试过的代码。查看this link 了解更多信息。
对于igraph cliques 来说似乎是一个好问题，一个边缘到另一个 clique，但我似乎无法弄清楚如何使用它。
无论如何，这里有一个选项应用连接来识别具有相同值的 ID，然后使用 data.table 反连接来删除这些 ID：
library(data.table)
DT <- as.data.table(x)
for (i in DT[, unique(ID)]) {
dupeID <- DT[DT[ID==i], on=.(Values), .(ID=unique(x.ID[x.ID!=i.ID]))]
DT <- DT[!dupeID , on=.(ID)]
}
输出：
ID Values
1: 1 3
2: 1 5
3: 1 7
4: 3 2
5: 3 4
6: 3 6
【讨论】：
x <- data.frame("ID" = c(1,1,1,2,2,2,3,3,3), "Values" = c(3,5,7,2,4,5,2,4,6))
gps = split(x, x$ID)
nGroups = length(gps)
k = 1
results = data.frame(ID = NULL, Values = NULL)
for(i in 1:(nGroups - 1)){
j = i + 1
while(j <= nGroups){
if(length(intersect(gps[[i]]$Values, gps[[j]]$Values)) == 0){
print(c(i,j))
results = rbind(results, gps[[i]], gps[[j]])
}
j = j + 1
}
}
results
> results
ID Values
1 1 3
2 1 5
3 1 7
7 3 2
8 3 4
9 3 6
【讨论】：
你可以试试下面的代码，其中y是数据框列表（包括所有独占Value的数据框）
xs <- split(x,x$ID)
id <- names(xs)
y <- list()
ids <- seq_along(xs)
repeat {
if (length(ids)==0) break;
y[[length(y)+1]] <- xs[[ids[1]]]
p <- ids[[1]]
qs <- p
for (q in ids[-1]) {
if (length(intersect(xs[[p]]$Value,xs[[q]]$Value))==0) {
y[[length(y)]] <- rbind(y[[length(y)]],xs[[q]])
qs <- c(qs,q)
}
}
ids <- setdiff(ids,qs)
}
示例
x <- data.frame("ID" = c(1,1,1,2,2,2,3,3,3,4,4),
"Values" = c(3,5,7,2,4,5,2,4,6,1,3))
> x
ID Values
1 1 3
2 1 5
3 1 7
4 2 2
5 2 4
6 2 5
7 3 2
8 3 4
9 3 6
10 4 1
11 4 3
你会得到
> y
[[1]]
ID Values
1 1 3
2 1 5
3 1 7
7 3 2
8 3 4
9 3 6
[[2]]
ID Values
4 2 2
5 2 4
6 2 5
10 4 1
11 4 3
【讨论】：