그래프를 quantmod에 추가하는 일반 함수

Question

일반 세그먼트를 플롯에 추가하는 add_TA 형식의 간단한 함수를 작성하려고합니다. 이 함수는 N x 4 매트릭스를받습니다. 행렬의 각 행은 세그먼트입니다.

나는 내 필요에 행운을 빕니다 add_SMA을 수정하려고했습니다.

는

add_Segments <- function (segs , ...) 
{ 
    lenv <- new.env() 
    lenv$add_segments <- function(segs , ...) { 
     segments(segs[,1] , segs[,2] , segs[,3] , segs[,4] , ...) 
    } 
    mapply(function(name, value) { 
     assign(name, value, envir = lenv) 
    }, names(list(segs = segs , ...)), list(segs = segs, ...)) 
    plot_object <- current.chob() 
    lenv$xdata <- segs 
    plot_object$set_frame(2) 
    exp <- parse(text = "add_segments(segs = segs , ...)") 
    plot_object$add(exp, env = c(lenv, plot_object$Env), expr = TRUE) 
    plot_object 
} 

이것은 내가 lenv에 xdata을 설정할 때 그래도 난 내가 그 돌을 모금

Error in plot.window(c(1, 1658), c(NaN, NaN)) : need finite 'ylim' values 

실패하지만 난하지 않았다 같아요.

결과를 설명하고 segments이 제대로 작동하는 재현 가능한 예입니다.

require(quantmod) 
s <- get(getSymbols('MSFT'))["2012"] 
chart_Series(s) 
segs <- matrix(c(183,31.61,213,30.20,221,26.34,233,26.26) , byrow = T , nrow = 2) 
segments(segs[,1] , segs[,2] , segs[,3] , segs[,4] , col = 'red') 

이유 내가 add_TA 형식을 사용하여 (바로 위의 예제와 같이 그리기되지 않음)하고있어 내가 추가 지표를 추가 할 내가 세그먼트가 플롯 객체 새로 고침 후 그래프에 있고 싶어한다는 것입니다.

Answer 1

이 작업은 add_Series 기능을 사용하여 수행 할 수 있지만 올바른 형식으로 데이터를 가져 오려면 조금 더 조작해야합니다. 아래 함수는 이러한 조작을 수행합니다.

interp <- function(Data, Points) { 
    # merge points with original data to create NA 
    m <- merge(Data[Points], index(Data)) 
    # linear approximation at equidistant spacing, 
    # rather than at index values (the default) 
    na.approx(m, seq(nrow(Data))) 
} 

chart_Series(s) 
add_Series(interp(Hi(s), c(183,213)), type="line", on=1) 
add_Series(interp(Lo(s), c(221,233)), type="line", on=1)