ř识别之前在符号

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) 
}