R identificare una riga prima di un cambiamento di segno

Question

Ho un vettore:

df <- c(5,9,-8,-7,-1) 

Come posso individuare la posizione prima di un cambiamento di segno? cioè df[2]

Answer 1

Questo è abbastanza semplice, se si sa sulla funzione sign ...

which(diff(sign(df))!=0) 
# [1] 2 

Answer 2

preferisco la risposta di Joshua, ma qui è un'alternativa, una più complicata solo per divertimento:

head(cumsum(rle(sign(df))$lengths),-1) 

Answer 3

Se vuoi essere una persona terribile, si può sempre usare un ciclo for:

signchange <- function(x) { 
    index = 0 
    for(i in 1:length(x)) 
    { 
     if(x[i] < 0) 
     { 
      return (index) 
     } 
     else 
     { 
      index = index + 1 
     } 
    } 
    return (index) 
}