R语言：如何在一定的规则下将数据转换为共现矩阵？

如下表数据，希望从左边的三列数据转换成右边的矩阵。规则是在同一个Item下如果Share-A+Share-B >0.05，那就构建A与B之间的关系，赋值为1. 如果有多个Item下Comp之间能构成联系则将赋值相加。然后自己与自己之间的关系（如A-A）赋值为0.

Item	Comp	Share			A	B	C	D
1	A	0.01		A	0	0	1	2
1	B	0.02		B	0	0	1	1
1	C	0.05		C	1	1	0	1
1	D	0.04		D	2	1	1	0
2	A	0.03
2	D	0.02

然后目前能做到的步骤是通过Item构建Comp之间的关系，但不知道如何才能加入Share的规则进行赋值，以及将自身之间的关系赋值为0
以下是我目前能做的代码
outer_join <- merge(Mydata,Mydata, by='Item', all=TRUE)
table(outer_join$Comp.x, outer_join$Comp.y)

希望各位大神们不吝赐教！！！非常感谢

1. library(tidyr)
   
2. library(dplyr)
   
3. library(rlist)
   
4. 
   
5. dd <- data.frame(item=c(1,1,1,1,2,2),comp=c('A','B','C','D','A','D'),share=c(0.01,0.02,0.05,0.04,0.03,0.02))
   
6. 
   
7. tmp <- merge(dd,dd,by='item')
   
8. tmp[['value']] <- with(tmp,share.x+share.y) ##求和
   
9. tmp[['value']] <- with(tmp,ifelse(comp.x!=comp.y&value>=0.05,1,0)) ##求和符合要求
   
10. tmp %>% group_by(comp.x,comp.y) %>%
    
11.         summarize(total_value = sum(value)) %>% #不同item多次符合要求
    
12.         spread(comp.y,total_value) #整理成你要的样式

复制代码

应该有直接的函数去处理，没有找到

万人往LVR 发表于 2020-4-6 14:02
应该有直接的函数去处理，没有找到

非常感谢解答！学习了！

万人往LVR 发表于 2020-4-6 11:44
应该有直接的函数去处理，没有找到