前面的博客我们详细介绍了plot()函数的使用,他很关键,很重要,如果您不了解,那么你可能不知道我再说什么。现在我们基于它来给大家分享一下折线图的绘制。
注:需要数据的可以发简信找我要,,,,,,,,
#加载数据集
library(readxl)
stock = read_excel("./stock.xlsx")
实验一:绘制时间-收盘价的折线图
abline(h=3000,v=as.POSIXct("2020-05-15"),lty=3,col="red")
#不能单独使用,需要依赖之前的图形,作用是在图形上面绘制一条水平直线
#h代表水平,V代表垂直。
lines(stock$date,stock$SZ_closing_price,lty=4,col="blue")#也不能单独使用,需要依赖之前的图形,作用是在原来的图像上面在绘图!
#查看范围
range(stock$SZ_closing_price)
在这里我们发现上面的图像没有完全显示,这就是[比例尺的]的问题了!使用range()
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)
实验三 投资者的信心指数
#数据的排序
stock1 = stock[order(stock$SH_closing_price),]
plot(stock1$SH_closing_price
,stock1$investor_confidence_index
,type='l')
matplot 一个数据集绘制多列,但是一般不使用,不过还是很方便的
matplot(stock$date#x轴
,stock[,2:4]#以2,3,4列为Y轴绘制属性的图形
,lty=1:3
,type='l'
,col=c('blue','green','red'))