如何解决在字符向量列表中查找任何交集
我有 list 个 character vector，其中一些具有相交元素，但不一定在整个 list 中存在相交元素。
例如：
l <- list(c("a"),c("a","b"),"c"),c("d"),c("e"),c("h","i"))
我想找到任何相交的元素。对于这个例子，这将是：
a
显然
Reduce(intersect,l)
不适合这种情况，因为它寻找与整个 list 相交的元素。
有什么想法吗？
解决方法
对于列表中的每个元素，使用 table 找出它的计数，并仅选择出现在多个列表中的那些值。
vals <- unique(unlist(l))
intersect_vals <- names(Filter(function(x) x > 1,rowSums(sapply(l,function(x) table(factor(x,vals))) > 0)))
intersect_vals
#[1] "a"
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
