代码

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)

效果