diff options
Diffstat (limited to 'paper/functional-groups.R')
-rwxr-xr-x | paper/functional-groups.R | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/paper/functional-groups.R b/paper/functional-groups.R index 765817a..47cec0b 100755 --- a/paper/functional-groups.R +++ b/paper/functional-groups.R @@ -1,7 +1,8 @@ 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") +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") |