R语言绘制股票K线图
来源:互联网 发布:普宁淘宝培训学校在哪 编辑:程序博客网 时间:2024/04/30 23:11
首先解释一下K线图的含义:首先我们找到该日或某一周期的最高和最低价,垂直地连成一条直线;然后再找出当日或某一周期的开市和收市价,把这二个价位连接成一条狭长的长方柱体。假如当日或某一周期的收市价较开市价为高(即低开高收),我们便以红色来表示,或是在柱体上留白,这种柱体就称之为“阳线”。如果当日或某一周期的收市价较开市价为低(即高开低收),我们则以绿色表示,又或是在柱上涂黑色,这柱体就是“阴线”了。
接下来是R语言的具体实现代码:
FT_Kplot<-function(OPEN,HIGH,LOW,CLOSE,DATE)
{
N<-length(OPEN)
w<-0.3
D<-CLOSE-OPEN
par(family='serif')
# 作图
plot(c(1:N),CLOSE,type='n',xaxt='n',
xlab='时间',ylab='价格',font.axis=1.5)
title(main='K线图',cex=2,col='black')
for(i in 1:N)
{
lines(c(i,i),c(LOW[i],HIGH[i]),col='black',lwd=1)
x<-c(i-w,i-w,i+w,i+w)
y<-c(OPEN[i],CLOSE[i],CLOSE[i],OPEN[i])
if(D[i]<0)
{
polygon(x,y,col='green',border='green')
} else
{
polygon(x,y,col='red',border='red')
}
}
Index<-seq(from=1,to=N,length=5)
Index<-round(Index)
Text<-DATE[Index]
axis(side=1,Index,labels=Text,cex.axis=1)
}
a<-read.table("166.txt")
date<-a[,1]
open<-a[,2]
high<-a[,3]
low<-a[,4]
close<-a[,5]
DATE<-substr(date,1,10)
FT_Kplot(open[c(1:100)],high[c(1:100)], low[c(1:100)],close[c(1:100)],DATE[c(1:100)])
数据集如下图所示:
效果图如下:
- R语言绘制股票K线图
- R语言绘制K线图
- R语言绘制K线图
- iOS 股票K线图绘制
- iOS 绘制股票K线图
- 利用JFreeChart绘制股票K线图
- ios股票K线图的绘制
- R语言绘制箱线图
- 转:利用JFreeChart绘制股票K线图完整解决方案
- WPF中使用amCharts绘制股票K线图
- 利用JFreeChart绘制股票K线图完整解决方案
- WPF中使用amCharts绘制股票K线图
- WPF中使用amCharts绘制股票K线图
- 利用JFreeChart绘制股票K线图完整解决方案
- 利用 python numpy +matplotlib 绘制股票k线图
- android 股票K线图
- 股票K线图
- 股票K线图
- GUI将class文件反编译为java文件
- 画个饼状图
- 每天学一点Swift----面向对象下(三)
- Linux系统--时间戳计数器TSC
- hexo —— 简单、快速、强大的Node.js静态博客框架
- R语言绘制股票K线图
- linux采用scp命令拷贝文件到本地,拷贝本地文件到远程服务器
- 从零开始学习Java Web(七):认识8大Listener
- 使用HttpClient和Jsoup定向抓取数据
- ant工具
- SQL优化
- Java基础应用之条件语句(判断用户输入月份的季节)
- Jquery 事件篇
- Digital Count数位统计