ifelse在abline（）R

Question

我想知道如何得到abline（）在下面的R代碼裏面命令來繪製2垂直線IF TL == 2和僅1垂直線IF tl == 1具有相同的線條顏色（例如「綠色」）？

這是我R代碼裏面（沒有成功）：

CBT <- function(g,r,n,tl){ 

curve(dt(x,n),-5,6,col="red") 

abline(v=ifelse(tl==2,c(-2,2),2),col="green") ## HERE needs a fix?? 
} 

## Test this: 
CBT(.4,.05,20,2) 

Answer 1

我們可以用一個if/else條件

CBT <- function(g,r,n,tl){ 
curve(dt(x,n),-5,6,col="red") 
if(tl==2){ 
    abline(v=c(-2,2), col="green") 
    } else { 
    abline(v = 2, col="green") } 
} 

CBT(.4,.05,20,2) 

如果我們需要兩個條件，即 'TL' 1， 2等情況下

CBT <- function(g,r,n,tl){ 
curve(dt(x,n),-5,6,col="red") 
if(tl==2){ 
    abline(v=c(-2,2), col="green") 
    } else if(tl==1){ 
    abline(v = 2, col="green") 
} else {abline(v=NA)} 
} 

CBT(.4,.05,20,2) 
CBT(.4,.05,20,1) 
CBT(.4,.05,20,0) 

Answer 2

您可以使用ifelse調用返回一個索引到一個列表，其中包含兩個條件的合適值。

CBT <- function(g,r,n,tl){ 
     curve(dt(x,n),-5,6,col="red") 
     abline(v= list(c(-2,2), 2) [[ ifelse(tl==2, 1, 2)]], col="green") 
    } 
CBT(.4,.05,20,1.5) 

我認爲，試圖用ifelse你的方式，問題是ifelse被設計爲與相同長度的條件返回值。用作索引可以改變長度。