Mercurial > repos > iuc > volcanoplot
annotate test-data/out.rscript @ 8:2f557f6abbfb draft default tip
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 84949ce3d77433f035c14406fccc5bc6beaa7a0d
author | iuc |
---|---|
date | Wed, 05 Jun 2024 15:03:07 +0000 |
parents | 83c573f2e73c |
children |
rev | line source |
---|---|
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
1 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
2 # Galaxy settings start --------------------------------------------------- |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
3 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
4 # setup R error handling to go to stderr |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
5 options(show.error.messages = F, error = function() {cat(geterrmessage(), file = stderr()); q("no", 1, F)}) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
6 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
7 # we need that to not crash galaxy with an UTF8 error on German LC settings. |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
8 loc <- Sys.setlocale("LC_MESSAGES", "en_US.UTF-8") |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
9 |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
10 # Galaxy settings end ----------------------------------------------------- |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
11 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
12 # Load packages ----------------------------------------------------------- |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
13 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
14 suppressPackageStartupMessages({ |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
15 library(dplyr) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
16 library(ggplot2) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
17 library(ggrepel) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
18 }) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
19 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
20 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
21 # Import data ------------------------------------------------------------ |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
22 |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
23 results <- read.delim('/private/var/folders/zn/m_qvr9zd7tq0wdtsbq255f8xypj_zg/T/tmprh4qip75/files/d/2/2/dataset_d2255b46-f0f6-4900-8b9e-bd352e34f303.dat', header = TRUE) |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
24 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
25 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
26 # Format data ------------------------------------------------------------ |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
27 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
28 # Create columns from the column numbers specified |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
29 results <- results %>% mutate(fdr = .[[4]], |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
30 pvalue = .[[3]], |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
31 logfc = .[[2]], |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
32 labels = .[[1]]) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
33 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
34 # Get names for legend |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
35 down <- unlist(strsplit('Down,Not Sig,Up', split = ","))[1] |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
36 notsig <- unlist(strsplit('Down,Not Sig,Up', split = ","))[2] |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
37 up <- unlist(strsplit('Down,Not Sig,Up', split = ","))[3] |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
38 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
39 # Set colours |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
40 colours <- setNames(c("cornflowerblue", "grey", "firebrick"), c(down, notsig, up)) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
41 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
42 # Create significant (sig) column |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
43 results <- mutate(results, sig = case_when( |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
44 fdr < 0.05 & logfc > 0.0 ~ up, |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
45 fdr < 0.05 & logfc < -0.0 ~ down, |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
46 TRUE ~ notsig)) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
47 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
48 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
49 # Specify genes to label -------------------------------------------------- |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
50 |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
51 # Import file with genes of interest |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
52 labelfile <- read.delim('/private/var/folders/zn/m_qvr9zd7tq0wdtsbq255f8xypj_zg/T/tmprh4qip75/files/5/e/5/dataset_5e5b8fb0-bf65-438e-9b5b-03a540d9aa5d.dat', header = TRUE) |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
53 |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
54 # Label the genes of interest in results table |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
55 results <- mutate(results, labels = ifelse(labels %in% labelfile[, 1], labels, "")) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
56 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
57 |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
58 |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
59 # Create plot ------------------------------------------------------------- |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
60 |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
61 # Open file to save plot as PDF |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
62 pdf("volcano_plot.pdf") |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
63 |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
64 # Set up base plot |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
65 p <- ggplot(data = results, aes(x = logfc, y = -log10(pvalue))) + |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
66 geom_point(aes(colour = sig)) + |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
67 scale_color_manual(values = colours) + |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
68 theme(panel.grid.major = element_blank(), |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
69 panel.grid.minor = element_blank(), |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
70 panel.background = element_blank(), |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
71 axis.line = element_line(colour = "black"), |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
72 legend.key = element_blank()) |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
73 |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
74 # Add gene labels |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
75 p <- p + geom_text_repel(data = filter(results, labels != ""), aes(label = labels), |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
76 min.segment.length = 0, |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
77 max.overlaps = Inf, |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
78 show.legend = FALSE) |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
79 |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
80 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
81 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
82 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
83 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
84 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
85 # Set legend title |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
86 p <- p + theme(legend.title = element_blank()) |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
87 |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
88 # Print plot |
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
89 print(p) |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
90 |
6
83c573f2e73c
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit e880a5736a65605ae8a38ca9bc6f17c92c798ccd"
iuc
parents:
5
diff
changeset
|
91 # Close PDF graphics device |
5
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
92 dev.off() |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
93 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
94 |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
95 # R and Package versions ------------------------------------------------- |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
96 sessionInfo() |
44608d0193ed
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/volcanoplot commit 8464d1b013c316d88b37884be521c0ef50be5623"
iuc
parents:
diff
changeset
|
97 |