Скажем, у меня есть такой набор данных:

id <- c(1, 1, 2, 2, 3, 3)
code <- c("a", "b", "a", "a", "b", "b")
dat <- data.frame(id, code)

т.е.,

    id  code
1   1   a
2   1   b 
3   2   a
4   2   a
5   3   b
6   3   b

Используя dplyr, как бы я подсчитал, сколько есть a для каждого идентификатора?

т.е.

   id  countA
1   1   1
2   2   2
3   3   0

Я пытаюсь такие вещи, которые не работают,

countA<- dat %>%
group_by(id) %>%
summarise(cip.completed= count(code == "a"))

Вышеприведенное дает мне ошибку: «Ошибка: нет применимого метода для group_by_, примененного к объекту класса« логический »»

Спасибо за вашу помощь!