here are some shortcuts that may be helpful:
dat <- data.frame(wave = 1:100,
var1 = sort(rnorm(100)),
var2 = sort(rnorm(100, 1)),
var3 = sort(rnorm(100, 2)))
plot(dat$var3, col = 'blue', type = 'l')
lines(dat$var2, col = 'red')
lines(dat$var1, col = 'green')
library(reshape2)
library(ggplot2)
dat.m <- melt(dat, id.vars = 'wave')
ggplot(dat.m, aes(wave, value, colour = variable)) + geom_line()
ggplot(dat.m, aes(wave, value, colour = variable)) + geom_line() +
scale_colour_manual(values = c('pink','orange','white'))