我有一个R中的向量列表，我想将所有共享至少一个值的向量分组，而不是只保留唯一值。你知道我怎么用R编码吗？
例如，假设列表如下：
[[1]]
[1] 1 2
[[2]]
[1] 2 1 3 7
[[3]]
[1] 3 2 4
[[4]]
[1] 4 3
[[5]]
[1] 17 10
[[6]]
[1] 17 22 10
[[7]]
[1] 22 17
我想获得以下两个载体
(1,2,3,4,7)
(10,17,22)
我正在考虑使用循环，迭代搜索并添加与 intersect 共享至少一个值的元素，然后应用 unique 。但是，由于我的真实列表包含超过50000个元素，我想知道是否存在更高效的东西，请。
数据
l <- list(c(1,2),c(2,1,3,7),c(3,2,4),c(4,3),c(17,10),c(17,22,10),c(22,17))