diff options
Diffstat (limited to 'scripts/functional-groups.R')
| -rwxr-xr-x | scripts/functional-groups.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/functional-groups.R b/scripts/functional-groups.R index 01f2043..6121073 100755 --- a/scripts/functional-groups.R +++ b/scripts/functional-groups.R @@ -1,3 +1,4 @@ +#!/usr/bin/Rscript library("ggplot2") data <- read.csv("data/functional-groups-reduced4R.csv",header=F) @@ -6,4 +7,4 @@ 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") +ggsave("figures/functional-groups.pdf") |