如何解决如何获得按世系相互关联的值的索引列表？ [R]
c2 <- c(2,5,7,8,10)
c1 <- c(1,3,2,5)
df <- data.frame(c1,c2)
这样：
1 与 2 [1] 相关，
2 与 7 [3] 相关，
7 与 8 [4]
所以我得到了索引 1,3 和 4 的向量
然后 3 与 5 [2] 相关，
并且 5 与 10 [5]
所以我得到了索引 2 和 5 的向量？
它伤害了我的大脑。
解决方法
这可以使用 igraph 库有效解决：
common_ids <- clusters(graph_from_data_frame(df,directed = FALSE))$membership
split(1:nrow(df),common_ids[match(df$c1,names(common_ids))])
$`1`
[1] 1 3 4
$`2`
[1] 2 5
如果组的成员也感兴趣：
split(names(common_ids),common_ids)
$`1`
[1] "1" "2" "7" "8"
$`2`
[1] "3" "5" "10"
带有 igraph 的选项
lapply(
groups(components(graph_from_data_frame(df,directed = FALSE))),function(x) Filter(Negate(is.na),match(x,as.character(df$c1)))
)
给予
$`1`
[1] 1 3 4
$`2`
[1] 2 5
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
