는 R 내가 벡터를 기호

Question

의 변화 이전에 행을 식별 :

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

어떻게 기호의 변화에 ​​앞서 위치를 식별 할 수 있습니까? 즉 df[2]

Answer 1

당신이 sign 기능에 대해 알고 경우는 아주 간단합니다 ...

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

Answer 2

나는 여호수아의 대답을 선호하지만, 여기에 대안은 단지 재미를 위해, 더 복잡 하나 :

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

당신이 끔찍한 사람이되고 싶은 경우에

Answer 3

, 당신은 항상 for 루프를 사용할 수 있습니다

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