R：使用dplyr软件包获取tibble的行号

Question

我想获取满足某些条件的任何行的行号。

在下面的 tibble 结构中，我只想获取其中 (p = 1, d = 1 q = 1) 的行号

tbl <- tibble::tibble(p = c(0, 0, 0, 0, 1, 0, 2, 2, 2, 2), d = c(1, 1, 1, 1, 1, 1, 1, 0, 0, 0), q = c(1, 1, 1, 1, 1, 1, 1, 0, 0, 0))

tbl

小标题：10 x 3

	p	d	p
1	0	1	1
2	0	1	1
3	0	1	1
4	0	1	1
5	1	1	1
6	0	1	1
7	0	1	1
8	2	0	0
9	2	0	0
10	2	0	0

tbl |>  dplyr::filter(p == 1, d == 1, q == 1) |> 
  dplyr::row_number()

# p d q 
# 1 2 3 

< strong>我想要的

我只想要一个可以打印的功能具有所需质量的行号，这样我就可以使生成它的函数成为一个具有名称的对象，以便在另一个函数中使用它

Answer 1

您可以使用以下代码：

library(dplyr)
tbl %>%
  with(which(p == 1 & d == 1 & q == 1))

输出：

[1] 5

这意味着它是数据的第 5 行。

Answer 2

我们可以在或上使用过滤> if_all

library(dplyr)
tbl %>% 
    mutate(rn = row_number()) %>% 
    filter(across(p:q, `==`, 1)) %>% 
    pull(rn)
[1] 5

---

或使用

tbl %>% 
  summarise(rn = which(if_all(p:q, `==`, 1)))
# A tibble: 1 × 1
     rn
  <int>
1     5

---

或使用 base r 与 rowsums 在逻辑矩阵上

 which(rowSums(tbl == 1) == 3)
[1] 5

Answer 3

另一种可能的解决方案：

library(dplyr)

tbl %>% 
  rowid_to_column %>% 
  filter(p == 1 & d == 1 & q == 1) %>% 
  pull(rowid)

#> [1] 5