R identyfikacji wiersz przed zmianą znaku

Question

mam wektor:

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

Jak mogę zidentyfikować pozycję przed zmianą znaku? tj df[2]

Answer 1

Jest to dość proste, jeśli wiesz o funkcji sign ...

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

Answer 2

wolę odpowiedź Joshua, ale tutaj jest alternatywą, bardziej skomplikowany dla zabawy:

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

Answer 3

Jeśli chcesz być straszny człowiek, zawsze można użyć pętli for:

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