交集并集等

##两组差异基因的交集。
ref <- gProfiler_hsapiens_0042119$name
aim <-rownames(upmarkers_nCRSvsPB)
inter <- intersect(aim,ref)
write.csv(inter,file = '1.csv')
#除了交集以外的基因
dif_nCRS <- setdiff(upmarkers_nCRSvsPB$...1, inter_nCRS_eCRS)
dif_eCRS <- setdiff(upmarkers_eCRSvsPB$...1, inter_nCRS_eCRS)
total <- c(inter_nCRS_eCRS, dif_eCRS,dif_nCRS)
##并集
union(x=c("a", "b", "c", 4), y = c("a", 2, 3, 4))