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")