batman %>% count(part_num, color_id, wt = quantity) star_wars %>% count(part_num, color_id, wt = quantity)
count(x)