前面的博客我们详细介绍了plot()函数的使用，他很关键，很重要，如果您不了解，那么你可能不知道我再说什么。现在我们基于它来给大家分享一下折线图的绘制。

注：需要数据的可以发简信找我要，，，，，，，，

#加载数据集
    library(readxl)
    stock = read_excel("./stock.xlsx")

实验一：绘制时间-收盘价的折线图

image.png

abline(h=3000,v=as.POSIXct("2020-05-15"),lty=3,col="red")
#不能单独使用，需要依赖之前的图形，作用是在图形上面绘制一条水平直线
#h代表水平，V代表垂直。

image.png

lines(stock$date,stock$SZ_closing_price,lty=4,col="blue")#也不能单独使用，需要依赖之前的图形，作用是在原来的图像上面在绘图！
 #查看范围
range(stock$SZ_closing_price)

image.png

在这里我们发现上面的图像没有完全显示，这就是[比例尺的]的问题了！使用range（）

image.png

plot(stock$date,stock$SH_closing_price,type='l',ylim = range(stock$SZ_closing_price)#设置y轴的比列尺，以便图像可以完全显示)

abline(h=3000,v=as.POSIXct("2030-05-15"),lty=3,col="red")
#不能单独使用，需要依赖之前的图形
lines(stock$date,stock$SZ_closing_price,lty=4,col="blue")
#查看范围
range(stock$SZ_closing_price)

image.png

实验三 投资者的信心指数

#数据的排序
stock1 = stock[order(stock$SH_closing_price),]

plot(stock1$SH_closing_price
     ,stock1$investor_confidence_index
     ,type='l')

image.png

matplot 一个数据集绘制多列，但是一般不使用，不过还是很方便的

matplot(stock$date#x轴
             ,stock[,2:4]#以2,3,4列为Y轴绘制属性的图形
             ,lty=1:3
             ,type='l'
             ,col=c('blue','green','red'))

image.png

好啦，今天就到这里，可以说讲的很仔细了，大家慢慢悟吧，希望能帮助到爱学习的你们！如果可以，我很开心！如果想深入学习R,欢迎访问我的主页R专栏！