CHIP-seq流程学习笔记（10）-使用intersect()函数提取ChIP-seq和RNA-seq中的共有基因

参考文章：R中常用函数使用说明

# 利用intersect函数对RNA_seq和ChIP_seq中的交集gene_symbol进行提取。
# 参考文章：https://blog.csdn.net/woodcorpse/article/details/80494605?ops_request_misc=%257B%2522request%255Fid%2522%253A%2522160471856319195264746932%2522%252C%2522scm%2522%253A%252220140713.130102334..%2522%257D&request_id=160471856319195264746932&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2~all~baidu_landing_v2~default-1-80494605.pc_first_rank_v2_rank_v28&utm_term=R%E4%B8%ADintersect&spm=1018.2118.3001.4449
# 交集intersect：两个向量的交集，集合可以是数字、字符串等

# ChIP_seq中的差异peak在上面已经定义，分别是：
# Scr_vs_shTgm1_2_cond1即Scr中上调的peak，即敲除shTgm1_2后降低的peak
ChIP_seq_group_1_down_genes <- as.vector(Scr_vs_shTgm1_2_cond1_V2$SYMBOL)
# Scr_vs_shTgm1_2_cond2即敲除shTgm1_2后升高的peak
ChIP_seq_group_1_up_genes <-</