代码如下：
library(ggplot2)
dat<-read.table("123.txt",head=TRUE)
dat$age<-as.character(dat$age)
ggplot(dat, aes(x=age, y=biomass, fill=name)) +
  geom_bar(stat="identity")

歹势，咱的版本无法读取ggplot程序包，帮不了楼主...
看到了ggplot2，楼主可以参考哦...
http://www.r-statistics.com/tag/ggplot2/

你能把codesg写给我吗

我用数据画了个图，你看看是你想要的么

是的，可以告知codes吗