R代码 | 检查H的列中的基因名是否也存在于另一个数据框(C_unique)的行名中

# 假设C_unique是一个数据框,其行名包含基因名  
row_names_C_unique <- rownames(C_unique)  

# 初始化一个空向量来存储不在C_unique行名中的基因名  
genes_not_in_C_unique <- vector("character")  

# 遍历H的每一列  
for (col in seq_along(H)) {  
  # 获取当前列的非NA基因名  
  current_col_genes <- H[[col]][!is.na(H[[col]])]  
  
  # 检查这些基因名是否不在C_unique的行名中  
  not_in_C_unique <- current_col_genes[!current_col_genes %in% row_names_C_unique]  
  
  # 如果找到这样的基因名,将它们添加到结果向量中  
  if (length(not_in_C_unique) > 0) {  
    genes_not_in_C_unique <- c(genes_not_in_C_unique, not_in_C_unique)  
  }  
}  

# 去除结果中的重复项(如果需要)  
genes_not_in_C_unique <- unique(genes_not_in_C_unique)  

# 输出结果  
print(genes_not_in_C_unique)

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值