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