R 함수의 이전 실행에서 플롯 위에 선 세그먼트를 그립니다.

Question

R 함수는 stock (아래)입니다. 함수의 각 실행 결과 (plot())가 함수의 이전 실행에서 플롯 맨 위에 플롯 (즉, 추가) 될 수있는 방법이 될 수 있는지 궁금합니다. (코드 아래 그림이 표시 될 수 있습니다)

stock = function(m, s){ 

loop = length(s) 

I = matrix(NA, loop, 2) 

for(i in 1:loop){ 
I[i,] = quantile(rbeta(1e2, m, s[i]), c(.025, .975)) 
} 
plot(rep(1:loop, 2), I[, 1:2], ty = "n", ylim = 0:1, xlim = c(1, loop)) 

segments(1:loop, I[, 1], 1:loop, I[, 2]) 
} 
# Example of use: 
stock(m = 2, s = c(1, 10, 15, 20, 25, 30)) 
stock(m = 50, s = c(1, 10, 15, 20, 25, 30)) #The result of this run be plotted on top of previous run above 

Answer 1

간단한이 옵션에 대한 인수를 추가하는 것입니다. 기본적으로 이 이전 프레임에 추가되므로 새로운 plot()을 수행하지 않아도됩니다.

stock = function(m, s, add=FALSE) { 

    loop = length(s) 
    I = matrix(NA, loop, 2) 

    for(i in 1:loop) { 
     I[i,] = quantile(rbeta(1e2, m, s[i]), c(.025, .975)) 
    } 
    if (!add) { 
     plot(rep(1:loop, 2), I[, 1:2], ty = "n", ylim = 0:1, xlim = c(1, loop)) 
    } 
    segments(1:loop, I[, 1], 1:loop, I[, 2], xpd = NA) 
} 

# Example of use: 
set.seed(1) 
stock(m = 2, s = c(1, 10, 15, 20, 25, 30)) 
stock(m = 50, s = seq(1, 90, 10), add=TRUE)