# example using "legend()" # x <- 1:100 # make up some data y <- 1-exp(-x/10) y1 <- 1.05 * y + 0.95 * (runif(100)-0.5) y4 <- 0.75 * y + 1.2 * (runif(100)-0.5) y3 <- 0.85 * y + 0.3 + 1* (runif(100)-0.5) y2 <- y + 1* (runif(100)-0.5) plot( x, y1, type="s",ylab="y" ) points( x, y2, type="s",col="red") points( x, y3, type="s",col="green") points( x, y4, type="s",col="blue") legend( "bottomright", legend=c("animal","mineral","vegatble","???"), lty=1, col=c("black","red","green","blue") )