在同一列中的某个值之后查找行

Question

我的数据框中有一列包含由零中断的升序数字。
我想找到零之前的所有行并创建一个仅包含这些行的新数据表。

My Column: 1, 2, 3, 4, 0, 0, 1, 2, 3, 4, 5, 6, 0

我需要什么： 4, 6

任何帮助将非常感激！ 谢谢！

Answer 1

欢迎来到 SO！
您可以尝试使用基本 R。这个想法是通过它们获取 0 和subset() df 之前的行的行名：

# your data
df <- data.frame(col = c(1, 2, 3, 4, 0, 0, 1, 2, 3, 4, 5, 6, 0))

# an index that get all the rownames before the 0
index <- as.numeric(rownames(df)[df$col == 0]) -1

# here you subset your original df by index: there is also a != 0 to remove the 0 before 0
df_ <- subset(df, rownames(df) %in% index & col !=0) 
df_
   col
4    4
12   6

Answer 2

一个 dplyr 解决方案：

library(dplyr)

df %>%
  filter(lead(x) == 0, x != 0)
#>   x
#> 1 4
#> 2 6

^{由reprex 包( v2.0.0 ) 于 2021 年 7 月 8 日创建}

数据

df <- data.frame(x = c(1, 2, 3, 4, 0, 0, 1, 2, 3, 4, 5, 6, 0))

Answer 3

使用基础 R：

df <- data.frame(x = c(1, 2, 3, 4, 0, 0, 1, 2, 3, 4, 5, 6, 0),
                 y = LETTERS[1:13])

df[diff(df$x)<0,]

   x y
4  4 D
12 6 L

Answer 4

在基数 R 中使用运行长度。要获得x的索引，请添加运行长度，直到出现 0 值。

x <- c(1, 2, 3, 4, 0, 0, 1, 2, 3, 4, 5, 6, 0)

y <- rle(x)  
x[cumsum(y$lengths)][which(y$values == 0) - 1]
# [1] 4 6