将差异分析结果映射到目标KEGG通路 #载入DESeq2差异分析结果表: load('DESeq2-TCGA-CHOL.Rdata') dds head(res) #使用ggraph包可视化KEGG通路,并在各节点映射差异分析结果数值(如Log2FC、adjustp等); g<- pathway('hsa04110') %>% mutate(Log2FC = assign_deseq2(res), padj= assign_deseq2(res, c...
将差异分析结果映射到目标KEGG通路 #载入DESeq2差异分析结果表: load('DESeq2-TCGA-CHOL.Rdata') dds head(res) #使用ggraph包可视化KEGG通路,并在各节点映射差异分析结果数值(如Log2FC、adjustp等); g<- pathway('hsa04110') %>% mutate(Log2FC = assign_deseq2(res), padj= assign_deseq2(res, c...
将差异分析结果映射到目标KEGG通路 #载入DESeq2差异分析结果表: load('DESeq2-TCGA-CHOL.Rdata') dds head(res) #使用ggraph包可视化KEGG通路,并在各节点映射差异分析结果数值(如Log2FC、adjustp等); g<- pathway('hsa04110') %>% mutate(Log2FC = assign_deseq2(res), padj= assign_deseq2(res, c...