afg <- read.csv(file="AALL.csv",header=TRUE)
library(ggplot2)
ggplot(afg,aes(afg$FG,afg$biomass,fill=afg$Year)) +
geom_bar(stat="identity",position=position_dodge(0.9),color="black")

library(reshape2)
afg.long <- melt(afg$Year,id="year")
ggplot(afg.long,aes(afg$FG,afg$biomass,fill=afg$Year)) +
geom_bar(stat="identity",position = "dodge")