Cách tạo chỉ báo kỹ thuật trong gói quantmod

Question

Tôi là người mới tham gia R và tôi đang gặp một số vấn đề với việc tạo chỉ báo kỹ thuật. Cụ thể hơn, tôi muốn tạo chỉ báo, Fibonacci, sẽ được thêm vào chartSeries và sẽ bao gồm 5 đường ngang. Dữ liệu tôi đang làm việc là giá đóng cửa của một cổ phiếu. Vì vậy, đồ thị tôi muốn tạo sẽ có một đường ngang ở điểm giá đóng tối đa, một đường ngang ở điểm giá đóng cửa min và ba đường ngang giữa hai giá trị trước đó. Mã tôi đã viết trong trật tự để có những năm giá trị của một chuỗi thời gian của giá đóng cửa của một cổ phiếu như sau:

Fibonacci <- function(x) { 
x <- try.xts(x, error = as.matrix) 
n <- nrow(x) 
min <- runMin(x,n=n) 
max <- runMax(x,n=n) 
high <- 0.62*(max-min) + min 
middle <- 0.5*(max-min) + min 
low <- 0.38*(max-min) + min 
res <-cbind(na.spline(min),na.spline(max),na.spline(high), 
      na.spline(middle),na.spline(low)) 
colnames(res)<- c("min","max","high","middle","low") 
reclass (res, x) 
} 

Tôi cũng đã viết đoạn mã sau để thêm các chỉ số kỹ thuật cho chartSeries cốt truyện hiện của quantmod gói:

addFibonacci<- function(col = "red",overlay = TRUE){ 
stopifnot("package:TTR" %in% search() || require("TTR", quietly = TRUE)) 
lchob <- quantmod:::get.current.chob() 
x <- as.matrix(lchob@xdata) 
chobTA <- new("chobTA") 
chobTA@new <- !overlay 
if (!is.OHLC(x)) 
    stop("Fibonacci requires HL series") 
else { 
fibon <- Fibonacci(Cl(x)) 
} 
chobTA@TA.values <- fibon[lchob@xsubset] 
chobTA@call <- match.call() 
chobTA@on <- 1 
chobTA@params <- list(xrange = lchob@xrange, colors = lchob@colors, 
    color.vol = lchob@color.vol, multi.col = lchob@multi.col, 
    spacing = lchob@spacing, width = lchob@width, bp = lchob@bp, 
    x.labels = lchob@x.labels, time.scale = lchob@time.scale, 
    col = col) 
if (is.null(sys.call(-1))) { 
    TA <- lchob@passed.args$TA 
    lchob@passed.args$TA <- c(TA, chobTA) 
    lchob@windows <- lchob@windows + ifelse(chobTA@new, 1, 
     0) 
    chartSeries.chob <- quantmod:::chartSeries.chob 
    do.call(chartSeries.chob, list(lchob)) 
    invisible(chobTA) 
} 
else { 
    return(chobTA) 
} 
} 

vấn đề là chỉ số là không nhận được bổ sung vào bảng xếp hạng và tôi cũng nhận được thông báo lỗi sau:

Error in do.call(x@passed.args$TA[[j]]@name, list(x@passed.args$TA[[j]])) : 
    'what' must be a character string or a function 

Bất kỳ ý tưởng nào về những gì tôi đang làm sai?

Answer 1

Thay vì viết các add* chức năng từ đầu, bạn chỉ có thể sử dụng newTA:

> library(quantmod) 
> getSymbols("AAPL") 
[1] "AAPL" 
> addFibonacci <- newTA(Fibonacci,on=1) 
> chartSeries(AAPL, TA="addFibonacci()") 
Error in addFibonacci() : could not find function "get.current.chob" 

Hmm, rõ ràng get.current.chob không xuất khẩu ... đó là okay, chúng tôi chỉ có thể thay đổi chức năng bản thân. Sau khi gọi addFibonacci <- newTA(Fibonacci,on=1), addFibonacci được định nghĩa là:

addFibonacci <- function (..., on = 1, legend = "auto") 
{ 
    #lchob <- get.current.chob() 
    lchob <- quantmod:::get.current.chob() 
    x <- as.matrix(lchob@xdata) 
    x <- Fibonacci(x = x) 
    yrange <- NULL 
    chobTA <- new("chobTA") 
    if (NCOL(x) == 1) { 
     chobTA@TA.values <- x[lchob@xsubset] 
    } 
    else chobTA@TA.values <- x[lchob@xsubset, ] 
    chobTA@name <- "chartTA" 
    if (any(is.na(on))) { 
     chobTA@new <- TRUE 
    } 
    else { 
     chobTA@new <- FALSE 
     chobTA@on <- on 
    } 
    chobTA@call <- match.call() 
    legend.name <- gsub("^add", "", deparse(match.call())) 
    gpars <- c(list(...), list())[unique(names(c(list(), list(...))))] 
    chobTA@params <- list(xrange = lchob@xrange, yrange = yrange, 
     colors = lchob@colors, color.vol = lchob@color.vol, multi.col = lchob@multi.col, 
     spacing = lchob@spacing, width = lchob@width, bp = lchob@bp, 
     x.labels = lchob@x.labels, time.scale = lchob@time.scale, 
     isLogical = is.logical(x), legend = legend, legend.name = legend.name, 
     pars = list(gpars)) 
    if (is.null(sys.call(-1))) { 
     TA <- lchob@passed.args$TA 
     lchob@passed.args$TA <- c(TA, chobTA) 
     lchob@windows <- lchob@windows + ifelse(chobTA@new, 1, 
      0) 
     chartSeries.chob <- chartSeries.chob 
     do.call("chartSeries.chob", list(lchob)) 
     invisible(chobTA) 
    } 
    else { 
     return(chobTA) 
    } 
} 

Và bạn có thể nhìn thấy nơi tôi thay thế các cuộc gọi đến get.current.chob() với quantmod:::get.current.chob(). Bây giờ nó sẽ hoạt động.

chartSeries(AAPL, TA="addFibonacci()") 

Thành công!