Агрегировать данные в R

Question

У меня есть набор данных, который показан ниже:

library(tidyverse)
data <- tribble(
  ~category, ~product_id, 
  "A",         10, 
  "B",         20,    
  "C",         30, 
  "A",         10, 
  "A",         10, 
  "B",         20, 
  "C",         30, 
  "A",         10, 
  "A",         10, 
  "B",         20, 
)

А теперь я хочу сгруппировать его по переменной «category», сохранить «product_id» и добавить новую переменную, которая подсчитываеткатегории:

  aggregated_data <- tribble(
  ~category, ~product_id, ~numberOfcategory
  "A",         10,       5,
  "B",         20,       3,   
  "C",         30,       2,
)

Я уже получил "numberOfcategory" с этим кодом:

data %>%
  group_by(category) %>%
  tally(sort=TRUE) 

Но почему-то я не смог сохранить product_id.

Может ли кто-нибудь помочь мне получить фрейм данных (aggregated_data)? Заранее спасибо.

Answer 1

Вы были близки! Также сгруппируйте по product_id следующим образом:

data %>%
  group_by(category,product_id) %>%
  tally(sort=TRUE)