diff options
author | Christoph Helma <helma@in-silico.ch> | 2017-02-09 14:25:19 +0100 |
---|---|---|
committer | Christoph Helma <helma@in-silico.ch> | 2017-02-09 14:25:19 +0100 |
commit | db82eef974b8783c40e7daa504feead3f555fdb8 (patch) | |
tree | a9bf02a6455cb2cb399b15bed3fcd759cb2b3448 /scripts/functional-groups.R | |
parent | 7ad7c10c1e708f6b5a3473de24dbeab03d0b74a3 (diff) |
directories restructured
Diffstat (limited to 'scripts/functional-groups.R')
-rwxr-xr-x | scripts/functional-groups.R | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/scripts/functional-groups.R b/scripts/functional-groups.R new file mode 100755 index 0000000..01f2043 --- /dev/null +++ b/scripts/functional-groups.R @@ -0,0 +1,9 @@ +library("ggplot2") + +data <- read.csv("data/functional-groups-reduced4R.csv",header=F) + +names(data) = c("V1","V2","Dataset") +data$V1 <- reorder(data$V1,-data$V2) + +ggplot(data,aes(x=V1,y=V2,fill=Dataset)) + geom_bar(stat="identity", position=position_dodge()) + xlab("") + ylab("") + coord_flip() +ggsave("figure/functional-groups.pdf") |