我的数据是csv格式，第一列是时间 date，第二列是cpi数值，我想画出如下图所示的图像。
但是我用plot(s1$date,s1$cpi,type = "l")命令画出来的都是散点图，没有办法连成线，请问该用什么命令呢？
我想要的图的样式：



我用plot(s1$date,s1$cpi,type = "l")命令画出来的样式：


我的数据在附件里面。还有，怎么画出日期是x轴，两个变量是两个y轴的图形呢？（两个y轴如上图所示）
跪求大神支援啊～～