Mercurial > repos > bebatut > plot_barplot

annotate plot_barplot.R @ 3:81d4e20b0b23 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit 4785c4bee4319462106fa2dd05b2a631c510e218-dirty
author bebatut
date Fri, 15 Apr 2016 05:38:24 -0400
parents f8cec112f5f9
children 2a9b68111074
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
1 library('getopt')
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
2
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
3 option_specification = matrix(c(
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
4 'input_file', 'i', 2, 'character',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
5 'output_pdf_file', 'p', 2, 'character',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
6 'output_png_file', 'o', 2, 'character',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
7 'output_svg_file', 's', 2, 'character',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
8 'data_column', 'd', 2, 'integer',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
9 'names_column', 'n', 2, 'integer',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
10 'xlab', 'x', 2, 'character',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
11 'col', 'c', 2, 'character',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
12 'bottom_margin', 'b', 2, 'integer',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
13 'left_margin', 'l', 2, 'integer',
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
14 'top_margin', 't', 2, 'integer',
2
f8cec112f5f9 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit 5c45ed58045ce1686aa069403f8a9426ea20bac5-dirty
bebatut
parents: 0
diff changeset
15 'right_margin', 'r', 2, 'integer',
f8cec112f5f9 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit 5c45ed58045ce1686aa069403f8a9426ea20bac5-dirty
bebatut
parents: 0
diff changeset
16 'header','y',2,'logical'
0
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
17 ), byrow=TRUE, ncol=4);
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
18
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
19 options = getopt(option_specification);
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
20
2
f8cec112f5f9 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit 5c45ed58045ce1686aa069403f8a9426ea20bac5-dirty
bebatut
parents: 0
diff changeset
21 header = TRUE
f8cec112f5f9 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit 5c45ed58045ce1686aa069403f8a9426ea20bac5-dirty
bebatut
parents: 0
diff changeset
22 if(!is.null(options$header)) header = options$header
f8cec112f5f9 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit 5c45ed58045ce1686aa069403f8a9426ea20bac5-dirty
bebatut
parents: 0
diff changeset
23
f8cec112f5f9 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit 5c45ed58045ce1686aa069403f8a9426ea20bac5-dirty
bebatut
parents: 0
diff changeset
24 data = read.table(options$input_file, sep = '\t', h = header)
0
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
25
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
26 data_column = 2
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
27 if(!is.null(options$data_column)) data_column = options$data_column
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
28 names_column = 1
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
29 if(!is.null(options$names_column)) names_column = options$names_column
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
30
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
31 margin = c(5,19,1,1)
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
32 if(!is.null(options$bottom_margin)) margin[1] = options$bottom_margin
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
33 if(!is.null(options$left_margin)) margin[2] = options$left_margin
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
34 if(!is.null(options$top_margin)) margin[3] = options$top_margin
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
35 if(!is.null(options$right_margin)) margin[4] = options$right_margin
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
36
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
37 xlab = ""
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
38 if(!is.null(options$xlab)) xlab = options$xlab
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
39
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
40 col = "grey"
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
41 if(!is.null(options$col)) col = options$col
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
42
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
43 plot_barplot <- function(){
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
44 par(las=2)
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
45 par(mar=margin)
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
46 barplot(data[, data_column], horiz = T, xlab = xlab,
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
47 names.arg = data[, names_column], col = col, cex.names=0.7,
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
48 cex.axis = 0.8)
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
49 }
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
50
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
51 if(!is.null(options$output_pdf_file)){
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
52 pdf(options$output_pdf_file)
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
53 plot_barplot()
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
54 dev.off()
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
55 }
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
56
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
57 if(!is.null(options$output_svg_file)){
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
58 svg(options$output_svg_file)
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
59 plot_barplot()
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
60 dev.off()
de039abf9641 planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/plot_barplot commit ec57288980629acd7768b28d1fbc94fc12f23561-dirty
bebatut
parents:
diff changeset
61 }