如何使用自定義數據進行K線繪制和自定義指標繪制

#這個例子，fun1/fun2/fun3相當於有三個指標是妳自定義的，通過這個辦法可以繪制出來，裏面的addBBands()是自帶的指標，可以把這四個指標壹起繪制出來。

#參數x可以是個啞元，在壹個實例文件裏，fun1/fun2/fun3可以直接處理全局變量。我就是這麽做的，不用把壹個大數組傳參。

fun1 <- function(x)

{

# your logic

return(rt1.xts)

}

fun2 <- function(x)

{

# your logic

return(rt2.xts)

}

fun3 <- function(x)

{

# your logic

return(rt3.xts)

}

ta1 <- newTA(FUN=fun1,on=1,...)

ta2 <- newTA(FUN=fun2,...)

ta3 <- newTA(FUN=fun3,...)

cn.theme <- chartTheme(up.col = "red",dn.col = "green")

chartSeries(rc.xts,name="",theme=cn.theme,TA=c(ta1(),ta2(),ta3(),addBBands(n=26)))