第一个大概可以这样

> x <- rnorm(1000)
> cols <- rainbow(1000)
> plot(x, col = cols)

非常感谢，但我根据这样得到的图是这样的呢?

Hope this is what you want.

****************************************************
x <- rnorm(1000)*5
err<- rnorm(1000)
dat <- data.frame(x = x,y = 1+2*x + 5*err,
                  y2 = 3+2*x + 5*err, y3 = -1+2*x + 5*err)

cPal <- colorRampPalette(c('blue','red'))

dat$Col <- cPal(50)[as.numeric(cut(dat$y,breaks = 50))]


plot(dat$x,dat$y,pch = 20,col = dat$Col)
abline(lm(dat$y~dat$x), col="black")
abline(lm(dat$y2~dat$x), col="green")
abline(lm(dat$y3~dat$x), col="pink")
grid()

太感谢了，貌似有点那个感觉了，您知道后面那个箱式图的颜色怎样调吗？

直接ggplot2吧