Объединить подмножество и уникальный в R

Question

Есть ли способ объединить эти два разных R-выражения, чтобы сделать его немного чище?

x6 <- subset(dBase, dBase$Operation_Name == "Wash")
x7 <- unique(x6$machine_number)

Это работает, но мне было интересно, если это можно поместить в одну строку в будущем.

Цель состоит в том, чтобы получить уникальный machine_number где Operation_Name == "Wash"

Спасибо!

Answer 1

unique(dBase[dbase$Operation_Name=="Wash",]$machine_number)

Answer 2

dplyr решение:

df <- data.frame(Operation_Name = c("Wash", "Fold", "Rince"),
                 machine_number = c(42, 43, 44))

library(dplyr)

df %>%
  filter(Operation_Name == "Wash") %>%
  pull(machine_number)
# [1] 42