Skip to content

Commit

Permalink
fix file names
Browse files Browse the repository at this point in the history
  • Loading branch information
malachig committed Jun 19, 2024
1 parent 325ce34 commit cf8a6db
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions _posts/0003-04-03-DE_Visualization_AdvancedR.md
Original file line number Diff line number Diff line change
Expand Up @@ -228,7 +228,7 @@ sigp = results_genes[sigpi, ]
sigfc = which(abs(sigp[, "log2FoldChange"]) >= 2)
sigDE = sigp[sigfc, ]

pdf(file = "EHR_vs_HBR_heatmap.pdf")
pdf(file = "UHR_vs_HBR_heatmap.pdf")
main_title = "sig DE Genes"
par(cex.main = 0.8)
sigDE_genes = sigDE[, "ensemblID"]
Expand All @@ -253,7 +253,7 @@ results_genes$diffexpressed[results_genes$log2FoldChange <= -2 & results_genes$p
results_genes$gene_label = NA
results_genes$gene_label[results_genes$diffexpressed != "No"] = results_genes$Symbol[results_genes$diffexpressed != "No"]

pdf(file = "EHR_vs_HBR_volcano.pdf")
pdf(file = "UHR_vs_HBR_volcano.pdf")

ggplot(data = results_genes[results_genes$diffexpressed != "No",], aes(x = log2FoldChange, y = -log10(pvalue), label = gene_label, color = diffexpressed)) +
xlab("log2Foldchange") +
Expand Down

0 comments on commit cf8a6db

Please sign in to comment.