代码
library(RODBC)
channel <- odbcConnect('db_name', uid='user_name', pwd='user_password') #连接数据源
s_d <- sqlQuery(channel, "SELECT t, s, d FROM table_1) #获取数据
length <- dim(s_d)[1] #数据组个数
plot(c(1:length), s_d$d, xaxt="n", xlab='', ylab='', ylim=c(0,25000000), main='日期-数据s|数据d散点图', type="o ", col="red") #利用数据d绘制第一条散点图,不显示x坐标值
#利用points和lines函数绘制第二条散点图
points(c(1:length), s_d$s)
lines(c(1:length), s_d$s, col="green")
#添加x坐标值标记
date <- s_d[,c(1)] #date <- s_d$t亦可
axis(1,labels=date, at=1:length, las=3)
效果