行の選択に関して、シンプルなコード

下記表のデータを用いて行の選択を実施しています。

最終的には下記行のみ選択したいと考えております。
(ProductNのrankingが１ばんのみを抽出して、id毎に分類）

下記コードにてトライしましたが、うまく行の選択ができませんでした。

aratanadata11<- aratanadata10 %>% group_by(id) %>% filter(b=="N1")

最終的に下記、コードにて結果は得られたのですが、もう少しシンプルなコードにて結果が得られるのではと思っています。

productN1<-aratanadata10 %>%filter(b =="N1" ) productN1_1<-productN1 %>% select(id,b) aratanadata11<-left_join(aratanadata10,productN1_1,by=c("id")) artanadata12<-aratanadata11 %>% drop_na()

もう少しコード記載に関して改善できる部分があればご教示をいただけますと幸いです。
R初心者のため、よろしくお願い致します。