R-自画蜡烛图CandleChart

getCandleChart<-function(x,theme='white'){
x<-na.omit(x)

xax<-x$DATETIME
print(paste("xax[1]=",xax[1]))

Opens <- as.numeric(x$Open)
Highs <- as.numeric(x$High)
Lows <- as.numeric(x$Low)
Closes <- as.numeric(x$Close)

#x,y取值范围
xrange<- c(min(xax),max(xax))
yrange <- c(min(Lows, na.rm = TRUE), max(Highs, na.rm = TRUE))

#蜡烛宽度
spacing <- 1
length <- nrow(x)

#颜色
bg.col="white"
fg.col="white"
dn.col="green"
up.col="red"
bar.border="black"

x.pos <- xax

#par(bg=bg.col,col.axis=fg.col,fg=fg.col)

# create scale of main plot window
plot.new()
plot.window(xlim=c(xrange[1],xrange[2]),ylim=c(yrange[1],yrange[2]))

#颜色
bar.col <- ifelse(Opens < Closes,dn.col,up.col)
bar.border <- bar.border     #上下影线及矩形实体边界颜色

segments(x.pos,Lows,x.pos,apply(cbind(Opens,Closes),1,min),col=bar.border)       #蜡烛下影线
segments(x.pos,Highs,x.pos,apply(cbind(Opens,Closes),1,max),col=bar.border)      #蜡烛上影线

rect(x.pos-spacing/3,Opens,x.pos+spacing/3,Closes,col=bar.col,border=bar.border)  #蜡烛实体
axis(1,at=x.pos,labels=format(xax,format="%H:%M:%S"))
axis(2)
box(col=bar.border)
}