参考文章: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 <-</