r - R: dplyr を使用した条件付きのネストされたグループ化された集計?

Question

以前の投稿(詳細はこちら) で@Frank に感謝します。ここでは、バーでの人々の飲酒パターンに関するデータセットに関するいくつかの質問に答えることができました。

bar_name,person,drink_ordered,times_ordered,liked_it
Moe’s Tavern,Homer,Romulan ale,2,TRUE
Moe’s Tavern,Homer,Scotch whiskey,1,FALSE
Moe’s Tavern,Guinan,Romulan ale,1,TRUE
Moe’s Tavern,Guinan,Scotch whiskey,3,FALSE
Moe’s Tavern,Rebecca,Romulan ale,2,FALSE
Moe’s Tavern,Rebecca,Scotch whiskey,4,TRUE
Cheers,Rebecca,Budweiser,1,TRUE
Cheers,Rebecca,Black Hole,1,TRUE
Cheers,Bender,Budweiser,1,FALSE
Cheers,Bender,Black Hole,1,TRUE
Cheers,Krusty,Budweiser,1,TRUE
Cheers,Krusty,Black Hole,1,FALSE
The Hip Joint,Homer,Scotch whiskey,3,FALSE
The Hip Joint,Homer,Corona,1,TRUE
The Hip Joint,Homer,Budweiser,1,FALSE
The Hip Joint,Krusty,Romulan ale,3,TRUE
The Hip Joint,Krusty,Black Hole,4,FALSE
The Hip Joint,Krusty,Corona,1,TRUE
The Hip Joint,Rebecca,Corona,2,TRUE
The Hip Joint,Rebecca,Romulan ale,4,FALSE
The Hip Joint,Bender,Corona,1,TRUE
Ten Forward,Bender,Romulan ale,1,
Ten Forward,Bender,Black Hole,,FALSE
Ten Forward,Guinan,Romulan ale,2,TRUE
Ten Forward,Guinan,Budweiser,,FALSE
Ten Forward,Krusty,Budweiser,1,
Ten Forward,Krusty,Black Hole,1,FALSE
Mos Eisley,Krusty,Black Hole,1,TRUE
Mos Eisley,Krusty,Corona,2,FALSE
Mos Eisley,Krusty,Romulan ale,1,TRUE
Mos Eisley,Homer,Black Hole,1,TRUE
Mos Eisley,Homer,Corona,2,FALSE
Mos Eisley,Homer,Romulan ale,1,TRUE
Mos Eisley,Bender,Black Hole,1,TRUE
Mos Eisley,Bender,Corona,2,FALSE
Mos Eisley,Bender,Romulan ale,1,TRUE
Quark’s Bar,Bender,Black Hole,1,TRUE
Quark’s Bar,Bender,water,1,FALSE
Quark’s Bar,Bender,unspecified,1,TRUE
Quark’s Bar,Homer,Black Hole,2,FALSE
Quark’s Bar,Guinan,unspecified,2,TRUE
Quark’s Bar,Guinan,Black Hole,1,TRUE
Quark’s Bar,Krusty,Black Hole,1,FALSE
Quark’s Bar,Krusty,water,2,FALSE
Quark’s Bar,Rebecca,unspecified,1,FALSE
Maz’s Tavern,Krusty,water,1,TRUE
Maz’s Tavern,Rebecca,water,1,FALSE
Maz’s Tavern,Homer,water,1,TRUE
Maz’s Tavern,Bender,water,2,FALSE

具体的には、@Frank は次のコードを提案しました。

DF %>%
  arrange(drink_ordered, times_ordered, liked_it) %>% group_by(bar_name, person) %>%
  summarise(
    Ld   = toString(drink_ordered),
    Ldt  = paste(Ld, toString(times_ordered), sep="_"),
    Ldtl = paste(Ldt, toString(liked_it), sep="_")
  ) %>% 
  group_by(bar_name) %>% 
  summarise_each(funs(n_distinct)) %>%
  mutate_each(funs(. == 1), -person, -bar_name)

これにより、常連客が各バーで同じ飲み物を注文したかどうか、その数、およびそれらが気に入ったかどうかについて、グループ化された要約が生成されます。

#        bar_name person    Ld   Ldt  Ldtl
#           (chr)  (int) (lgl) (lgl) (lgl)
# 1        Cheers      3  TRUE  TRUE FALSE
# 2  Moe’s Tavern      3  TRUE FALSE FALSE
# 3    Mos Eisley      3  TRUE  TRUE  TRUE
# 4   Ten Forward      3 FALSE FALSE FALSE
# 5 The Hip Joint      4 FALSE FALSE FALSE

ただし、この投稿では、一部の人々の飲み物の注文がunspecified(でQuark's Bar) あり、一部の人々が注文したという追加の問題がありwaterます。

についてunspecifiedは、「一般的な」飲み物として機能させて、別の飲み物としてカウントされないようにしたい (そのバーで他の飲み物が注文された場合)。たとえば、全員が同じ飲み物を注文したというQuark's Bar結果になりたいとします。もちろん、バーで全員がのみを注文した場合、結果もになります。TRUEunspecifiedTRUE
についてwaterは、通常は無視したいので (たとえば、アルコール飲料ではないため!)、最初は dplyr を使用filter()して、順序がであるデータの行を削除できると考えましたwater。複雑なのは、人々が注文したものだけがのようにであっTRUEた場合に、結果を表示したいということです。したがって、で行を単純に削除できるとは思わないので、考慮してもらいたいです! 言い換えれば、それがその中で注文された唯一のユニークなものでない限り、私は数えたくありません.waterMaz's Tavernwaterwaterbar_name

またはのような「例外的な」アイテムを条件付きで（それは正しい用語ですか？）処理する方法はありますwaterかunspecified？@Frankが上記のコードで行ったようなテーブルを生成するdplyr（つまり、Hadley-verse）ベースのソリューションを好みます。ありがとうございました！

r - R: dplyr を使用した条件付きのネストされたグループ化された集計?

0 に答える 0

Related

Reference