mosses<-c(53, 85, 69, 98, 130, 90)
liverworts<-c(47, 67, 85, 113, 190, 239)
data<-rbind(mosses,liverworts)
barplot(data,beside=TRUE)