Plot multiples (time) series in R with legend

Question

According to my datas (cf. picture) called GDP. I would like to know how to plot a

Answer 1

In just 2 lines using ts.plot

    ts.plot(time,gpars= list(col=rainbow(10)))
    legend("topleft", legend = 1:10, col = 1:10, lty = 1)

Result: Plot multiples (time) series in R with legend