# example using "text()"
#
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", xlim=c(0,120) )
points( x, y2, type="s", col="red" )
points( x, y3, type="s", col="green" )
points( x, y4, type="s", col="blue" )

text(  103,                                   # x
       c(y1[100],y2[100],y3[100],y4[100]),    #
       labels=c("animal","mineral","vegatble","???"),   # text
       adj=c(0,1),                            # left justified
       col=c("black","red","green","blue")
      )