这个例子主要用 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")
时间: 2024-12-29 10:15:30