dplyr 過濾向量 by position in pipe %>%

Question

從這個優秀的答案中，可以使用magrittr package 在 pipe 中過濾帶有dplyr的向量，如下所示：

library(dplyr)
c("D", "B", "C", "A", NA) %>% 
  .[matches("[^AB]", vars=.)]
#[1] "D" "C"

c("D", "B", "C", "A", NA) %>% 
  .[.!="A"]
# [1] "D" "B" "C" NA 

但我想按向量 position 過濾，所以如果我想要前兩個位置，我會得到：

#[1] "D" "B"    #want to filter position <= 2

如果我想要 1st 和 4th position 我會得到：

#[1] "D" "A"    #want to filter position by c(1, 4)

ETC....

實現這一目標的最佳方法是什么？

我認為使用row_number可能有用，但后來想起這行不通，因為順序不正確：

row_number(c("D", "B", "C", "A", NA))
# [1]  4  2  3  1 NA

我會更好地使用seq_along ：

seq_along(c("D", "B", "C", "A", NA))
# [1] 1 2 3 4 5

但是我不確定如何將其合並到 pipe 中。

有任何想法嗎？

謝謝

Answer 1

術語“過濾”通常不用於描述矢量運算。 Base R 有一個很好的矢量索引/提取工具： [

在這里涉及 magrittr pipe 的理由為零。 dplyr像filter()這樣的動詞在現實世界中沒有用於矢量操作的實用程序，它們專門用於操作tbl對象。

在您的示例中，您使用了 tidyselect 助手，但這對於進行基本的位置匹配來說是瘋狂的矯枉過正。

> my_vector <- c("D", "B", "C", "A", NA)

> my_vector[c(1,2)]
[1] "D" "B"

> my_vector[c(1,4)]
[1] "D" "A"