R绘制股票走势图及年份成交量图

目的：抓取雅虎网站上的还有Oracle公司的股票价格，绘制最高最低点，及描述其年成交量的比例

可以通过getSymbols函数抓取在雅虎上的股票数据，事先需要先下载好两个关于股票的包：

library(quantmod)
library(tseries)
getSymbols("ORCL",src="yahoo")

输入对应的股票名称，就能得到股票数据，eg:

ORCL:ORCL.Open ORCL.High ORCL.Low ORCL.Close ORCL.Volume
2007-01-03        19        20       19         18     5.2e+07
2007-01-04        19        20       19         18     3.4e+07
2007-01-05        19        20       19         18     3.6e+07
2007-01-08        19        20       19         18     3.1e+07
2007-01-09        20        20       19         18     3.1e+07
2007-01-10        19        20       19         18     2.8e+07
2007-01-11        20        20       19         17     6.5e+07
2007-01-12        19        19       19         18     4.3e+07

绘制相关的图形所用的函数为barChart（）见下：

barChart(ORCL)

而在其中标注出最高点与最低点使用的函数为 addTA ,首先，先通过数据找出其最高值与最低值的相关数据：

Max<-Hi(ORCL[which.max(ORCL$ORCL.High)])
Min<-Lo(ORCL[which.min(ORCL$ORCL.Low)])

查看结果：

MaxORCL.High
2017-06-22     51.85
MinORCL.Low
2009-03-09   15.152

再通过addTA函数绘制最高最低点的图

addTA(Max,col="red",type="b",lwd=2,on=1)
addTA(Min,col="blue",type="b",lwd=2,on=1)

即依照图显示出了对应的最高值最低值。

计算对应的成交量的值及其相应的比例，（成交量在抓取数据的第五列），制得成如下的数据框：

df<-data.frame(year=2015:2017,or=c(sum(ORCL[which(format(index(ORCL),"%Y")=="2015"),5]),sum(ORCL[which(format(index(ORCL),"%Y")=="2016"),5]),sum(ORCL[which(format(index(ORCL),"%Y")=="2017"),5])),ap=c(sum(AAPL[which(format(index(AAPL),"%Y")=="2015"),5]),sum(AAPL[which(format(index(AAPL),"%Y")=="2016"),5]),sum(AAPL[which(format(index(AAPL),"%Y")=="2017"),5])),MS=c(sum(MSFT[which(format(index(MSFT),"%Y")=="2015"),5]),sum(MSFT[which(format(index(MSFT),"%Y")=="2016"),5]),sum(MSFT[which(format(index(MSFT),"%Y")=="2017"),5])))

利用数据框的数据进行计算：

df$aveor<-(df$or/(sum(df$or)))
df$aveap<-(df$ap/(sum(df$ap)))
df$avems<-(df$MS/(sum(df$MS)))

得到最终新的表格为如下：

dfyear         or          ap         MS     aveor     aveap     avems
1 2015 3750690400 13063147500 9057810400 0.4208588 0.4975680 0.4536930
2 2016 3457618700  9680553200 7814289200 0.3879737 0.3687268 0.3914068
3 2017 1703684100  3510295436 3092523803 0.1911676 0.1337052 0.1549002

绘制相应的统计图形，采用热力图作为颜色：

barplot(as.matrix(df[,5:7]),,beside=T,horiz=F,border="white",ylim=c(0,1),main="stock",col=heat.colors(3))

再添加相应的图例：

legend("right",legend=df$year,bty="n",fill=heat.colors(3))

嗯，讲真好像图形还是挺难看的，关于如何在直方图上加上相应的数据还未学会，

倘若路过有大神希望可以教下渣新

希望本文对你有帮助

技术所限，不当之处，还请见谅。

R绘制股票走势图及年份成交量图相关推荐

Matplotlib 绘制股票走势图
Matplotlib 绘制股票走势图引入库读取数据绘图引入库 import pandas as pd import os import matplotlib.pyplot as plt 读取数 ...
cufflinks基于dataframe数据绘制股票数据：直方图、时序图
cufflinks基于dataframe数据绘制股票数据:直方图.时序图 # 直方图: import cufflinks as cf from chart_studio import plotly a ...
平均股价的时间序列图形_数据可视化——pandas绘制股票走势图
python数据可视化工具除了matplotlib底层绘图包,还有在matplotlib基础上分装的seaborn绘图包,此外,数据分析报pandas也在matplotlib基础上分装内置了绘图功能. ...
python 画股票走势图_使用Python matplotlib绘制股票走势图
一.前言 matplotlib[1]是著名的python绘图库,它提供了一整套绘图API,十分适合交互式绘图.本人在工作过程中涉及到股票数据的处理如绘制K线等,因此将matplotlib的使用心得进行 ...
用python绘制股票图_【转】使用Python matplotlib绘制股票走势图
一.前言 matplotlib[1]是著名的python绘图库,它提供了一整套绘图API,十分适合交互式绘图.本人在工作过程中涉及到股票数据的处理如绘制K线等,因此将matplotlib的使用心得进行 ...
用python画股票分时图 github_用python的matplotlib和numpy库绘制股票K线均线和成交量的整合效果（含量化验证交易策略代码）...
在用python的matplotlib和numpy库绘制股票K线均线的整合效果(含从网络接口爬取数据和验证交易策略代码)一文里,我讲述了通过爬虫接口得到股票数据并绘制出K线均线图形的方式,在本文里,将 ...
javascript绘制股票走势图
2019独角兽企业重金招聘Python工程师标准>>> amCharts股票走势图的主要目的是为了显示金融图表,但它可以用于任何日期(时间)为基础的数据可视化. 股票走势图,是一个功 ...
用python的matplotlib和numpy库绘制股票K线均线和成交量的整合效果（含量化验证交易策略代码）...
在用python的matplotlib和numpy库绘制股票K线均线的整合效果(含从网络接口爬取数据和验证交易策略代码)一文里,我讲述了通过爬虫接口得到股票数据并绘制出K线均线图形的方式,在本文里,将 ...
基于AChartEngine绘制股票走势图----分时图一(走势柱状)
概述(项目地址:https://github.com/JiangYueA/android_aps) 使用AChartEngine实现股票分时.五日.k线图,分时图主要有均线,时价的走势和成交量的柱状图 ...

R绘制股票走势图及年份成交量图

R绘制股票走势图及年份成交量图相关推荐

最新文章

热门文章