######
# Exercise solution


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

altitude<-c(400,600,800,1000,1200, 1300)
colnames(data)<- altitude
barplot(data, col=c("lightgreen","darkgreen"),beside=TRUE, xlab="Altitude (m)",ylab="Number of bryophytes")
legend("topleft", fill=c("lightgreen","darkgreen"), c("mosses","liverworts"), cex=1)