サブセットを結合してユニークなR

Question

これらの2つの異なるRステートメントを組み合わせて少しクリーナーにする方法はありますか？

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

これは機能しますが、今後これを1行に入れることが可能かどうか疑問に思っていました。

目標はどこOperation_Name == "Wash"

おかげでユニークmachine_numberを取得することです！

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