dplyr groupbyに基づいて行をフィルタリングし、出力を集計します

Question

私は2つの列、metro、stateを持つデータセットを持っています。私は今だけ最大カウントされているデータフレーム内の行をフィルタリングし、残りを残したい

metro   State   count 
A    OH   703 
A    NJ    3 
B    GA   1453 
B    CA   456 
B    WA   123 

、私は次の出力を得る

data %>% group_by(metro, State) %>% summarise(count = n()) 

、dplyrで次のコマンドを与えます。私は対応する行をフィルタリングする必要があります。次のコマンドの行をフィルタリング後の出力は、すべての地下鉄は、最大カウントの状態であり、残りが除去された状態のみを持っている

data %>% group_by(metro, State) %>% summarise(count = n()) 

    metro   State   count 
    A    OH   703 
    B    GA   1453 

でなければなりません。

以下は私がしようとしている

、

data %>% group_by(metro, State) %>% filter(n() == max(n())) 

をしかし、これは再度、入力と同じデータフレームを配っています。

誰でもこの作業を手伝うことができますか？私の出力はすべてのメトロが最大数を持つ一意の状態を持つ必要があり、残りの状態エントリは削除する必要があります。

data1 <- data %>% group_by(metro, State) %>% mutate(count = n()) %>% 
        group_by(metro) %>% filter(count == max(count)) 

nrow(data1) 

Answer 1

あなたが最初にGROUPBY地下鉄と状態はカウントを取得し、その後地下鉄をGROUPBY、各地下鉄内の最大数に等しくない場合、カウントを除外し、ダブルステージGROUPBYを必要とします

我々はまた、data.table

library(data.table) 
setDT(data)[, count := .N , .(metro, state)][, .SD[count == max(count)] , .(metro)] 

Answer 2

：

おかげ