Mercurial > repos > davidvanzessen > mutation_analysis
comparison piechart.r @ 0:74d2bc479bee draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Mon, 18 Aug 2014 04:04:37 -0400 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:74d2bc479bee |
|---|---|
| 1 if (!("ggplot2" %in% rownames(installed.packages()))) { | |
| 2 install.packages("ggplot2", repos="http://cran.xl-mirror.nl/") | |
| 3 } | |
| 4 library(ggplot2) | |
| 5 | |
| 6 args <- commandArgs(trailingOnly = TRUE) | |
| 7 | |
| 8 vls = args[1] | |
| 9 lbls = args[2] | |
| 10 name = args[3] | |
| 11 output = args[4] | |
| 12 | |
| 13 vls = as.numeric(unlist(strsplit(vls, ","))) | |
| 14 lbls = unlist(strsplit(lbls, ",")) | |
| 15 | |
| 16 pc = ggplot(data.frame(Type=lbls, vls=vls), aes(x = factor(1), y=vls, fill=Type)) | |
| 17 pc = pc + geom_bar(width = 1, stat = "identity") | |
| 18 pc = pc + coord_polar(theta="y") | |
| 19 pc = pc + xlab(" ") + ylab(" ") + ggtitle(name) | |
| 20 | |
| 21 png(filename=output) | |
| 22 #pie(vls, labels=lbls, col=rainbow(length(vls)), main=name) | |
| 23 pc | |
| 24 dev.off() |