diff options
Diffstat (limited to 'functional-groups.R')
-rw-r--r-- | functional-groups.R | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/functional-groups.R b/functional-groups.R new file mode 100644 index 0000000..47cec0b --- /dev/null +++ b/functional-groups.R @@ -0,0 +1,8 @@ +library("ggplot2") + +functional_groups <- read.csv("data/functional-groups-reduced4R.csv",header=F) + +names(functional_groups) = c("V1","V2","Dataset") + +ggplot(functional_groups,aes(x=V1,y=V2,fill=Dataset)) + geom_bar(stat="identity", position=position_dodge()) + xlab("") + ylab("") + coord_flip() +ggsave("figure/functional-groups.pdf") |