Mercurial > repos > davidvanzessen > plotting_merged

comparison RScript.r @ 12:ffcf8f90ad86 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Fri, 27 Sep 2013 06:11:35 -0400
parents 7a1b8021a191
children e445e8a41185
comparison
equal deleted inserted replaced
11:7a1b8021a191 12:ffcf8f90ad86
3 args <- commandArgs(trailingOnly = TRUE) 3 args <- commandArgs(trailingOnly = TRUE)
4 4
5 inFile = args[1] 5 inFile = args[1]
6 outFile = args[2] 6 outFile = args[2]
7 7
8 #install.packages("gridExtra", repos="http://cran.xl-mirror.nl/") 8 install.packages("gridExtra", repos="http://cran.xl-mirror.nl/")
9 library (gridExtra) 9 library (gridExtra)
10 #install.packages("ggplot2", repos="http://cran.xl-mirror.nl/") 10 install.packages("ggplot2", repos="http://cran.xl-mirror.nl/")
11 require(ggplot2) 11 require(ggplot2)
12 #install.packages("plyr", repos="http://cran.xl-mirror.nl/") 12 install.packages("plyr", repos="http://cran.xl-mirror.nl/")
13 require(plyr) 13 require(plyr)
14 14
15 test = read.table(inFile, sep="\t", header=TRUE) 15 test = read.table(inFile, sep="\t", header=TRUE)
16 16
17 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene) 17 test$Top.V.Gene = gsub("[*]([0-9]+)", "", test$Top.V.Gene)
89 #plotall 89 #plotall
90 #ggsave(outFile, dpi=125) 90 #ggsave(outFile, dpi=125)
91 91
92 92
93 png(outFile,width = 1920, height = 1200) 93 png(outFile,width = 1920, height = 1200)
94 plot(pV) 94 print(plotall = grid.arrange(pV, arrangeGrob(pD, pJ, ncol=2), ncol=1, widths=c(1,1.2)))
95 plotall = grid.arrange(pV, arrangeGrob(pD, pJ, ncol=2), ncol=1, widths=c(1,1.2))
96 print(plotall)
97 dev.off() 95 dev.off()
98 96
99 97