col=ifelse(x<0, "blue", "red") #如果x值为负值，用蓝色表示，反正，用红色表示 abline(v=0,col="grey",lwd=2,lty=6) #用灰色画出垂直线x=0，如果将v=0用h=0代替，表示画水平线y=0
效果图如下：
R语言画图，根据正负值画不同颜色，并且画水平线或者垂直线
原文：http://www.cnblogs.com/chenwenyan/p/6219783.html
