R语言删选两列同时不为0的行数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大佬，我在做物种的共现分析，想统计两个物种同时出现的次数。原始数据如图：
例如，A1和A2没有同时出现，即为0；A1和A3在第三行同时出现，即为1；A4和A7在第1、2、3行同时出现，即为3。统计两列同时不为0的行数（个数），请问该怎么编写代码呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 原始数据 R语言

1. # 模拟一个类似的矩阵
   
2. vec <- sample(c(0, 1, 2, 3, 4, 5), size = 8 * 14, prob = c(0.5, rep(0.1, 5)), replace = TRUE)
   
3. mt <- matrix(vec, ncol = 14)
   
4. 
   
5. # 开始计算
   
6. mt <- mt != 0
   
7. 
   
8. out <- t(mt) %*% mt
   
9. out[lower.tri(out)] <- NA
   
10. 
    
11. # 结果出来了
    
12. out

复制代码

cheetahfly 发表于 2021-9-7 22:15

感谢大佬，写的简洁高效