• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

R语言--股票数据分析

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

(本实验是以股票数据作为分析背景,股票数据如何从雅虎财经板块上获取,观察股票每日价格和成交量数据开始,接着计算某一支股票数据中比较重要的日度收益率。然后通过各种股票线图进行技术分析,最后在一支股票的基础上同时分析多支股票的成交量,涨幅时间点,最后得出它们之间的相关性等数据特征。)


#Quantitative Financial Modelling Framework

> library(quantmod)

#S3 Infrastructure for Regular and Irregular Time Series
> library(zoo)

#eXtensible Time Series
> library(xts)

#Technical Trading Rules
> library(TTR)

#Time Series Analysis and Computational Finance
> library(tseries)

#Econometric tools for performance and risk analysis
> library(PerformanceAnalytics)

#Procedures for Psychological, Psychometric, and Personality Research
> library(psych)

#Visualization of a Correlation Matrix
> library(corrplot)

#调用quantmod包中 getSymbols 函数获取苹果公司的股票数据
> getSymbols("AAPL",from = "2017-01-01",to = Sys.Date(),src = "yahoo")

> head(AAPL)

#调用tseries包中 get.hist.quote 函数获取谷歌公司的股票数据
> goog<-get.hist.quote(instrument = "GOOG", start="2017-01-01", end="2017-08-08",quote = "AdjClose")

> head(goog)

#绘制股票图:chartSeries(K线图)
> chartSeries(AAPL,up.col='red', dn.col='green',theme="white")

> chartSeries(AAPL,name = "AAPLBARCHART",subset="2017-01-01::2017-08-07",type="bars")

> chartSeries(AAPL,name = "AAPLLINECHART",subset="2017-01-01::2017-08-07",type="line")

> chartSeries(AAPL,name = "AAPLCANDCHART",subset="2017-01-01::2017-07-17",type="candlesticks")

#技术函数:addBBands()求出股价的标准差及信赖区间;addADX()趋势衡量指标;addMACD()指数平滑异同移动平均线;addCCI()测量股价是否超出常态分布范围;addVo()测量成交量……
> chartSeries(AAPL,up.col='red',dn.col='green',theme="white")

> addBBands(n=14,sd=2,draw='bands')

> addADX()

> addMACD()

#收益率:简单收益率
> close <- AAPL[,4]

> close1 <- lag(close,1)

> head(close1)

> calclose <- merge(close,close1)

> simplerate <- (close-close1)/close1

> names(simplerate)="simplerate"

> calrate=merge(calclose,simplerate)

> head(calrate)

#收益率:对数收益率
> rate=periodReturn(close,period="daily",type="log")

> head(rate)

#抓取四家公司的全部股票行情数据并查看抓取的全量数据情况
> new.environment <- new.env()

> getSymbols(c("AAPL", "ORCL", "MSFT", "GOOG"), src = "yahoo", env = new.environment)

> str(get("AAPL", env = new.environment))

> str(get("ORCL", env = new.environment))

> str(get("MSFT", env = new.environment))

> str(get("GOOG", env = new.environment))

#计算出Apple公司股票总成交量使用情况
> summary(AAPL)

> sum(Vo(AAPL))

#查看各公司涨跌幅超过 2% 的情况
> AAPL <- Delt(Cl(get("AAPL", env = new.environment)))

> length(AAPL[which(AAPL > 0.02), ])

> plot(AAPL[which(AAPL > 0.02), ])

#调整数据
> m <- cbind(Ad(get("AAPL", env = new.environment)), Ad(get("ORCL", env = new.environment)), Ad(get("MSFT", env = new.environment)), Ad(get("GOOG", env = new.environment)))

#分析判断相关性并绘图
> corr.test(as.data.frame(m))

> corrplot.mixed(cor(m), lower = "ellipse", upper = "circle")






鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
R语言中的数学计算发布时间:2022-07-22
下一篇:
R语言画图实例-参考R语言实战发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap