ifelse in abline() r

Question

ich frage, wie die abline erhalten() Befehl in der R Code unten2 vertikaleLinien zu zeichnenIF tl == 2 und nur 1 vertikale LinieIF tl == 1 mit der gleichen Linienfarbe (zB "grün")?

Hier ist mein R-Code (ohne Erfolg):

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

Wir haben eine if/else Bedingung

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) 

können

Wenn wir für 1 sowohl die Bedingung heißt 'tl' benötigen, 2 und andere Fälle

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

Sie können eineverwendenAufruf, der einen Index in eine Liste mit geeigneten Werten für Ihre beiden Bedingungen zurückgibt.

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) 

Ich denke, das Problem mit dem Versuch ifelse Weg zu verwenden, ist, dass ifelse soll einen Wert mit der gleichen Länge wie die bedingten zurückzukehren. Wenn Sie als Index verwenden, können Sie die Längen variieren.