[R]条件付きのグループ単位の集計方法

Question

いつもお世話になります。
標記について、教えていただきたいことがあります。

現在、下記のようなデータがあります。

主コード	hoge
100	AAA
100	AAA
101	AAA
102	BBB
102	BBB
102	AAA

このようなとき、下記のようなデータにしたいです。

主コード	hogeのAAA数	hogeのBBB数
100	2	0
101	1	0
102	1	2

以下のようなコードで動作すると思いましたが、エラーが発生しました。

df <- df %>% group_by(主コード) %>%
    summarise(hogeのAAAの数 = count(hoge="AAA"))
df <- df %>% group_by(主コード) %>%
    summarise(hogeのBBBの数 = count(hoge="BBB"))

Error in summarise_impl(.data, dots) : 
  Evaluation error: argument "x" is missing, with no default.

どのようにすれば実現できるのか、教えていただければと思います。

どうぞよろしくお願い致します。

Answer 1

以下のようなデータフレームがあったとして

hoge <- c("AAA", "AAA", "AAA", "BBB", "BBB", "AAA")
code <- c(100, 100, 101, 102, 102, 102)
dfR  <- data.frame(code, hoge)

①tapply()を使って分類（カウントには、summary()かtable()を使用）
②do.call()でデータフレームに変換

do.call(rbind, tapply(dfR$hoge, dfR$code, summary))

こんな感じでいかがでしょうか。

Comments

[essa]

fermat様

回答ありがとうございます。
do.call()というものは初めてみました。このような方法があるのですね。

ありがとうございました！