如何在第一個負值上切一個矢量

Question

我想在第一個負值上切矢量，怎麼辦？

x <- c(1, 4 , 6 , 3, -1, 4, -3) 

操作應導致

c(1, 4, 6, 3) 

Answer 1

試試這個辦法：

x[1:which(x < 0)[1]-1] 

Answer 2

您可以使用which找到第一個負號的位置，然後減去1

x[1:(which(x < 0)[1] - 1)] 

如果第一個數字是負數，則此簡單方法將失敗。但是我們可以建立一個檢查並根據需要返回一個空向量。

cutNeg <- function(x){ 
    index <- which(x < 0)[1] 
    if(index == 1) return(integer(0)) 
    x[1:(index-1)] 
} 

cutNeg(x) 

Answer 3

另一種選擇是

x[!cumsum(x < 0)] 
#[1] 1 4 6 3 

Answer 4

我們還可以使用的cumsum一個朋友從@ akrun的答案，cummin其計算累積最小：

x[cummin(x) > 0] 
[1] 1 4 6 3 

Answer 5

搜索 「 - 」 使用grep也適用：

x[1:grep("-", x)[1]-1]