off() }) ##记录差异基因 DEG1 <- intersect(vn_pcDEG[["DESeq2-Up"]],vn_pcDEG[["edgeR-Up"]]) DEG2 <- intersect(vn_pcDEG[["DESeq2-Down"]],vn_pcDEG[["edgeR-Down"]]) DEG3 <- intersect(vn_pcDEG[["limma-Up"]],DEG1) DEG4 <- intersect(vn_pcDEG[["limma-Down"]],DEG2)...