这个例子主要用 points 画散点图

福彩双色球开奖数据可视化: 

http://www.gdfc.org.cn/datas/history/twocolorball/history_1.html

qh,r1,r2,r3,r4,r5,r6,bl
001,03,09,15,20,27,29,01
002,04,21,23,31,32,33,04
003,06,10,11,28,30,33,12

省略

151,04,05,08,11,21,27,08
152,08,13,15,20,21,25,12

cp.R 代码如下

# 画在一图中
cp <- read.csv("D:/temp/cp2014.csv",header=T)
plot(cp$r1,col="red",xlim=c(1,152),ylim=c(1,33),main="双色球",xlab="期数",ylab="ball")
points(cp$r2,col="red")
points(cp$r3,col="red")
points(cp$r4,col="red")
points(cp$r5,col="red")
points(cp$r6,col="red")
points(cp$bl,col="blue")

R语言 : 画散点图