library("ggplot2")
fcolor_two <- c("#0059A3","#B01B12")

data <- read.csv("features_kept_data.csv")
p = ggplot(data,aes(fill=z,x=x,y=y,group=group)) + geom_bar(stat="identity")  + xlab("Method") + facet_grid(. ~ group) + scale_y_continuous(breaks=c(0,20,40,60,80,100))

p = p +  opts(legend.position = "none") + opts(plot.margin = unit(c(0,0.05,-0.2,0),"cm"))
print(p)