diff options
Diffstat (limited to 'paper/functional-groups.R')
-rwxr-xr-x | paper/functional-groups.R | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/paper/functional-groups.R b/paper/functional-groups.R new file mode 100755 index 0000000..765817a --- /dev/null +++ b/paper/functional-groups.R @@ -0,0 +1,7 @@ +library("ggplot2") +#functional_groups <- read.csv("functional-groups-reduced.csv",header=F,row.names = 1) +functional_groups <- read.csv("functional-groups-reduced4R.csv",header=F) +print(functional_groups) + +ggplot(functional_groups,aes(x=V1,y=V2,fill=V3),legendTitle="Dataset") + geom_bar(stat="identity", position=position_dodge()) + xlab("") + ylab("") + coord_flip() +ggsave("functional-groups.pdf") |